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TABLE OF CONTENTS 



PART 2MNEMON-2 FIRST DEVICE 2MNEMON-2 SECOND DEVICE ! PAGE ! 
# 2 IC J IN ROM i IC I IN ROM 1 # ! 


760A9 J PR I PC05 ! TT J LO SPD RDR 2 3 J 


756A9 2 DK 2 RK03/05 2 DT 2 TU55/56 2 5 2 


752A9 2 DM 2 RR06/07 2 NA 2 NA 2 8 2 


751A9 2 DL 2 RL01 2 NA 2 NA 2 10 2 


759A9 2 DS 2 RS03/04 2 NA 2 NA 2 12 2 


753A9 2 DX 2 RX01 2 NA 2 NA 2 13 2 


811A9 2 DY 2 RX02 2 NA 2 NA 2 15 2 


758A9 2 MT 2 TU10/E10,TS03 2 NA 2 NA 2 17 2 


757A9 2 MM 2TU16/E16 TM02/32 NA 2 NA 2 19 2 


761A9 2 CT 2 TU60 2 NA 2 NA 2 21 2 


755A9 2 DP 2 RP02/03 2 DB 2RP04/5/6 RM02/32 23 2 


764A9 2 MS 2 TS04 2 NA 2 NA 2 25 2 


765A9 2 DD 2 TU58 2 NA ! 


, NA 2 28 2 


862A9 2 XM 2 COMM 2 NA 
863A9 2 2 2 NA 
864A9 2 2 2 NA 


, NA 2 30 2 
NA 2 33 2 
NA 2 34 2 


865A9 2 XU 2 COMM 2 NA 
866A9 2 2 2 NA 
867A9 2 2 2 NA 


[ NA 2 36 2 
; NA ! 39 2 
1 NA 2 40 2 


868A9 2 XW 2 COMM 2 NA 
869A9 2 2 2 NA 
870A9 2 2 2 NA 


1 NA 2 43 2 
; NA 2 46 2 
1 NA 2 47 2 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE PC11 OPTION(S) 



TO BOOT UNIT 0,AND NOT 
TO BOOT UNIT AND RUN 
THE Y COMPONENT OF THE 









IF THIS 


ROM IS 


IN SLOT 1 THE Y 








IF THIS 


ROM IS 


IN SLOT 2 THE Y 








IF THIS 


ROM IS 


IN SLOT 3 THE Y 








IF THIS 


ROM IS 


IN SLOT 4 THE Y 








.SBTTL 


TTY BOOT 








.SBTTL 


;PC, Dl 


i BOOT 


000000 


050122 




hsr: 


•ASCII 


"RP" 


000002 


000026 






• WORD 


<HSRE-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


#0,R0 


000012 


012701 


177550 


hsrm: 


MOV 


#HSRCR,R1 


000016 


010704 




cfudge: 


MOV 


PCR4 


000020 


103064 






BCC 


BDIAG 


000022 


000412 






BR 


LOAD 


000024 


173000 






• WORD 


MRESERVED 


000026 


000340 




hsre: 


• WORD 


RESERVED 


000030 


052124 




tt: 


•ASCII 


R||N 


000032 


000146 






.WORD 


<TTE-.+2> 


000034 


000261 






SEC 




000036 


012700 


000000 




MOV 


#0,R0 


000042 


012701 


177560 


ttm: 


MOV 


#TTCR,R1 


000046 


000763 






BR 


CFUDGE 


000050 


012705 


160000 


load: 


MOV 


#160000, R5 


000054 


012703 


000004 




MOV 


#4,R3 


000060 


010723 






MOV 


PCrCR3)+ 


000062 


005013 






CLR 


(R3) 


000064 


012706 


000502 


1$: 


MOV 


#502, SP 


000070 


010145 






MOV 


R1,-(R5) 


000072 


042705 


000032 




BIC 


#32, R5 


000076 


012725 


016701 




MOV 


#16701, (5)+ 


000102 


012725 


000026 




MOV 


#26,(5)4- 


000106 


012725 


012702 




MOV 


#12702,(5)+ 


000112 


012725 


000352 




MOV 


#352, (5)+ 


000116 


012725 


005211 




MOV 


•5211* (5)+ 


000122 


012725 


105711 




MOV 


#105711, (5)+ 


000126 


012725 


100376 




MOV 


#100376, (5)+ 


000132 


012725 


116162 




MOV 


#116162, (5)t 


000136 


012725 


000002 




MOV 


#2,(5)+ 


000142 


010515 






MOV 


R5,(5) 


000144 


105025 






CLRB 


C5) + 


000146 


005205 






INC 


R5 



RUN DIAGNOSTICS, THE START 
CPU DIAGNOSTICS, THE START 
ADDRESS REPRESENTS BITS 7 
COMPONENT IS 00 
COMPONENT IS 01 
COMPONENT IS 10 
COMPONENT IS U 



ADDR IS 173Y34. 

ADDR IS 173Y36. 

AND 8 OF THE WHOLE WORD* 
ADDR. 1730XX 
ADDR, 1732XX, 
ADDR. 1734XX, 
ADDR. 1736XX. 



jHIGH SPEED READER BOOT. 

;OFFSET TO NEXT BOOT. 

7 ENTRY 

;ENTRY POINT TO NO DIAG. 

;LOAD CSR ADDR. INTO Rl. 

;ENTRY POINT 

;GO DO DIAG. 



;LOW SPEED READER. 

•OFFSET TO NEXT BOOT. 



j LOAD CSR ADDR. INTO Rl. 



;PUT ERRVEC INTO R3 

;PUT RETURN ADDR IN ERRVEC 



JTIMES OUT UNTIL RIGHT ADDR! 
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000150 


012725 


005267 




MOV 


#5267,(5)+ 


000154 


012725 


177756 




MOV 


#177756,(5)+ 


000160 


012725 


000765 




MOV 


#765,(5)+ 


000164 


010115 






MOV 


Rl,(5) 


000166 


000165 


177746 




JMP 


-32(R5) 


000172 


000137 


165564 


BDlAGt 


JMP 


*#DIAG 


000176 


154747 
000001 




TTEI 


• WORD 

• END 


154747 



jGO DO BOOT ADDR.SX7744 

JCRC WORD FOR LAST 63« WORDS, 







SYMBOL TABLE 




BDIAG 000172 


BIT8 » 000400 


BIT9 » 001000 


CFUDGE 000016 


CRCWD * 000000 


DIAG a 165564 


HSR 000000 


HSRCR ■ 177550 


HSRE 000026 


HSRM 000012 


INITSW* 173024 


LOAD 000050 


MRESERs 173000 


PC »%000007 


RESERVE 000340 


RK05CRS 177404 


RK06CRS 177440 


RL01CRS 174400 


RP03CR" 176714 


RP04CR* 176700 


RS03CR« 172040 


RS04CR* 172040 


RX01CR" 177170 


RX02CR« 177170 


R0 M000000 


Rl s%000001 


R2 s%000002 


R3 »%000003 


R4 a%000004 


R5 s%000005 


R6 s%000006 


R7 s%000007 


SP *%000006 


TT 000030 


TTCR » 177560 


TTE 000176 


TTM 000042 


TU10CR« 172522 


TU16CRS 172440 


TU56CRS 177342 


. * 000200 
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.TITLE M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE RK05 TU56 OPTION(S). 



.SBTTL RK05 BOOT 

TO BOOT UNIT 0,AND NOT 
TO BOOT UNIT AND RUN 
THE Y COMPONENT OF THE 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 

.SBTTL TU56 BOOT 



RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



ADDRESS REPRESENTS BITS 

1 THE Y COMPONENT IS 00 

2 THE Y COMPONENT IS 01 

3 THE Y COMPONENT IS 10 

4 THE Y COMPONENT IS 11 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



THIS ROM WILL BOOT THE TU56 OPTION(S). 
TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y34. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y36. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 

IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 

IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 

IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 

IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 

.SBTTL ?RK05, TU56 BOOT 
?CMNDS "DK", "DT" 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



;RK05 BOOT 



TU56 BOOT 



000000 


042113 




RK05: 


.ASCII 


"KD" 


000002 


000026 






.WORD 


<RK05E-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


#0,R0 


000012 


012701 


177404 


RK05M: 


MOV 


#RK05CR,R1 


000016 


010704 






MOV 


PCR4 


000020 


103057 






BCC 


BDIAG 


000022 


000426 






BR 


RK05B 


000024 


173000 






.WORD 


MRESERVED 


000026 


000340 




RK05E: 


.WORD 


RESERVED 


000030 


042124 




TU56: 


.ASCII 


"TD" 


000032 


000146 






.WORD 


<TU56E-.+2> 


000034 


000261 






SEC 




000036 


012700 


000000 




MOV 


«R0,R0 


000042 


012701 


177342 


TU56M; 


MOV 


#TU56CR,Rl 



THIS BOOT READS DISK ADDR. 0,0 ON ERROR I.E. DRIVE 

NOT READY, NO DISK, ETC, A SYSTEM INIT. IS ISSUED AND 
THE BOOT IS RETRIED UNTIL A GOOD BOOT OCCURS 
OR THE BOOT IS HALTED. 

THIS BOOT READS BLOCK FROM THE DEC TAPE ON ERROR 
WE ISSUE A A SYSTEM INIT. THEN TRY TO REBOOT. 
THIS RETRY WILL OCCUR UNTIL WE SUCCESSFULLY BOOT, 
OR THE BOOT IS HALTED. 



?CMND "DK" RK05 BOOT. 
•OFFSET TO NEXT DEVICE BOOT. 
fUNIT 0, NO DIAG. ENTRY POINT, 
?UNIT 0, RUN DIAG. ENTRY POINT 
JLOAD CSR ADDR. INTO Rl. 
?ENTRY FROM CONSOLE EMULATOR. 
jEXERCISE DIAG. IF C*0 
?GOTO RK05 BOOT. 



;CMND "DT" TU56 BOOT. 
;OFFSET TO NEXT DEVICE BOOT. 
;UNIT 0, NO DIAG. ENTRY POINT. 
;UNIT 0, RUN DIAG. ENTRY POINT. 
;LOAD CSR ADDR. INTO Rl 
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000046 
000050 
000052 
000054 
000056 
000060 
000064 
000066 
000070 

000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 
000120 
000126 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000152 
000156 
000160 



000166 
000172 

000176 



010704 
103043 
010003 
000303 
010311 
052711 
005711 
100376 
005761 

010311 
000410 
010003 
000241 
006003 
006003 
006003 
006003 
010361 
012761 
052703 
010311 
105711 
100376 
005711 
100003 
000005 
000164 
042711 
005007 
000137 



000164 000261 



012700 
000707 
000176 
124650 
000001 



004003 



177776 



1$: 



RK05B: 



000006 
177000 
000005 



000002 
000377 

165564 



000002 CBOOT: 

1$: 

ERROR: 
GBOOT: 
BDIAG: 



000002 



RK052: 



TU56E: 



MOV 

BCC 

MOV 

SWAB 

MOV 

BIS 

T5T 

BPL 

TST 

MOV 

BR 

MOV 

CLC 

ROR 

ROR 

ROR 

ROR 

MOV 

MOV 

BIS 

MOV 

TSTB 

BPL 

TST 

BPL 

RESET 

JMP 

BIC 

CLR 

JMP 



PC#R4 

BDIAG 

R0,R3 

R3 

R3,(R1) 

#4003, (Rl) 

(Rl) 

1$ 

-2CR1) 

R3,(R1) 

CBOOT 

R0,R3 

R3 

R3 

R3 

R3 

R3,6(R1) 

#-512.,2(Rl) 

#5,R3 

R3,(l) 

(Rl) 

1$ 

(Rl) 

GBOOT 



JENTRY FROM CONSOLE EMULATOR, 

jEXERCISE DIAG. IF C»0 

;FIX UNIT NUMBER IN R3 

JTU56 BOOT, 

;FIX UNIT NUMBER IN DEVICE. 

j SET REWIND 

fWAIT FOR END ZONE ERROR 

;LOOK FOR ERROR. 

;CLEAR DEVICE. 

? GOTO COMMON BOOT. 

;FIX UNIT NUMBER FOR DEVICE. 



;SET UNIT NUMBER IN DEVICE 
jCOMMON BOOTf SET WORD COUNT. 
?PICK UP READ WORD. 
;SET INTO DEVICE CSR. 
JWAIT FOR DEVICE DONE. 

•TEST FOR DEVICE ERROR 



jON ERROR, INITIALIZE SYSTEM 
2(R4) JRETURN TO START OF BOOT. 

#377, (Rl) ;NO ERROR, CLEAR DEVICE 
R7 ;GOTO SECONDARY MONITOR ADDR. OR 

MDIAG ?GOTO DIAGNOSTIC IF C»0 

jRETURNS BASED ON ADDR. IN R4 
•*#♦♦#♦*#*####»#»♦»♦*###♦##»#♦»♦###♦###*»###*#*#######»♦ 
?ENTRY POINT FOR RK05 UNIT #2, NO DIAGS RUN. 

SEC 

JENTRY POINT FOR RK05 UNIT #2, RUN DIAGS. 



MOV 
BR 

. = 176 
.WORD 
.END 



#2,R0 
RK05M 

124650 



;ENTRY POINT FOR RK05 BOOT UNIT 2 



jCRC WORD FOR LAST 63. WORDS. 
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SYMBOL TABLE 



BDIAG 000160 


BIT8 s 000400 


BIT9 = 001000 


CBOOT 000120 


CRCWD « 000000 


DIAG s 165564 


ERROR 000144 


GBOOT 000152 


HSRCR » 177550 


INITSWs 173024 


MRESER= 173000 


PC s%000007 


RESERV* 000340 


RK05 000000 


RK05B 000100 


RK05CRS 177404 


RK05E 000026 


RK05M 000012 


RK052 000166 


RK06CR= 177440 


RL01CRS 174400 


RP03CRS 176714 


RP04CR» 176700 


RS03CR5 172040 


RS04CRS 172040 


RX01CR= 177170 


RX02CRS 177170 


R0 s%000000 


Rl s%000001 


R2 s%000002 


R3 =%000003 


R4 s%000004 


R5 «%000005 


R6 s%000006 


R7 s%000007 


SP s%000006 


TTCR « 177560 


TU10CR= 172522 


TU16CR* 172440 


TU56 000030 


TU56CR» 177342 


TU56E 000176 


TU56M 000042 


• s 000200 



M9312 ROM LISTING BOOTSTRAP (K-SP-M9312-0-7) 



Page 8 



000000 
000002 
000004 
000006 
000012 
000016 
000020 
000022 
000024 
000026 
000030 
000034 
000040 
000042 
000044 
000046 
000050 
000056 
000060 
000062 
000066 
000072 
000074 
000076 
000100 
000102 
000102 
000110 

000112 



042115 
000176 
000261 
012700 
012701 
010704 
103055 
000402 
173000 
000340 
010061 
012711 
105711 
100376 
005711 
100015 
032761 
001426 
000005 
010061 
012711 
105711 
100376 
005711 
100415 

012761 
011103 
042703 



000000 
177440 



000010 
000003 



000040 000014 



000010 
002003 



177000 
000377 



000002 



M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE RK06/RK07 OPTION(S). 

TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 
IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 
IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 
IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 
IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 

.SBTTL RK06/RK07 BOOT 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



;rK06 BOOT. 



THIS BOOT BOOOTS EITHER THE RK06 OR RK07 DRIVES. 

IT FIRST TRIES TO BOOT SELECTED DRIVE AS A RK06. 

IF WE GET A DRIVE TYPE ERROR AS A RESULT OF THAT TRY, 

WE SET THE RK07 DRIVE TYPE IN THE RK611 CSR. AND TRY 

TO BOOT THE SELECTED DRIVE AS A RK07. 

NOTE: DRIVE TYPE IS LEFT IN THE 
CSR WHEN WE LEAVE THIS BOOT. 



.SBTTL ;RK06/RK07 

JCMND * "DM" 



RK06: 


•ASCII 


"MD" 




• WORD 


<RK06E-.+2> 




SEC 






MOV 


«0,R0 


RK06M: 


MOV 


«RK06CR,R1 




MOV 


PCR4 




BCC 


BDIAG 




BR 


RK06B 




.WORD 


MRESERVED 




.WORD 


RESERVED 


RK06B: 


MOV 


R0,10(R1) 




MOV 


#3,(R1) 


1$: 


TSTB 


(Rl) 




BPL 


1$ 




TST 


(Rl) 




BPL 


3$ 




BIT 


*40,14(R1) 




BEQ 


ERROR 




RESET 






MOV 


R0,10(R1) 




MOV 


#002003, (Rl) 


2$: 


TSTB 


(Rl) 




BPL 


2$ 




TST 


(Rl) 




BMI 


ERROR 


3$: 






CBOOT: 


MOV 


#-512.,2(Rl) 




MOV 


(R1),R3 




BIC 


#377, R3 



? ID OF RK06,RK07 BOOT. 
jOFFSET TO NEXT DEVICE BOOT. 



?LOAD DEVICE ADDR. INTO Rl, 



NO ERROR-THEN PRROCEED. 

THERE WAS AN ERROR, PUT DRIVE TYPE? 

NO,INIT AND TRY AGAIN, 

YES INIT AND TRY RK07 TYPE DRIVE* 

SET DRIVE NUMBER, 

SELECT RK07,PAC. 

WAIT FOR READY, 

? LOOK FOR AN ERROR 

;IF ERROR INIT TRY AGAIN, 

^REGISTER INTO ITSELF. 

?LOAD WORD COUNT 

;READ DEVICE 

;STRIP. 
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000116 
000122 
000124 
000126 
000130 
000132 
000134 
000136 
000142 
000142 



000146 
000152 
000154 

000176 



052703 
010311 
105711 
100376 
005711 
100003 
000005 
000164 

005007 



000021 



000144 000261 



012700 
000717 
000137 
000176 
077161 
000001 



000002 





BIS 


#21, R3 




MOV 


R3r (Rl) 


1$: 


TSTB 


CR1) 




BPL 


1$ 




TST 


(1) 




BPL 


GBOOT 


ERROR: 


RESET 






JMP 


2(4) 


GBOOT: 






START: 


CLR 


PC 



000001 
165564 



BDIAG: 
RK06E: 



;ADD READ CODE 
JSTART DEVICE 
;WAIT FOR READY 

;ANY ERROR? 
;NO ERROR, EXIT 
? INITIALIZE SYSTEM 
;RETRY BOOT, 

^STARTS LOADED CODE. 

JENTRY POINT FOR RK06,RK07 UNIT #1, NO DIAG. 

;*«#***##**«*«*»#***##***»##**#*****#*#*********#*##*### 

SEC 

•♦##*##*###»»####»♦♦♦##»»##*##*♦♦#♦##*##♦#»*♦♦#♦#####»## 

;ENTRY POINT FOR RK06,RK07 UNIT *1, RUN DIAG. 

;#****#*#*#»«#«***#*****#**«*#***#******#****«*##******* 

MOV #1#R0 

BR RK06M 

JMP 9»DIAG 

,sl76 

.WORD 077161 ?CRC WORD FOR LAST 63. WORDS. 

.END 



SYMBOL TABLE 



BDIAG 
CRCWD a 
HSRCR * 
RESERV* 
RK06CR« 
RP03CR= 
RX01CR* 
R2 « 
R6. s 
TTCR s 



000154 
000000 
177550 
000340 
177440 
176714 
177170 
%000002 
%000006 
177560 
000200 



BIT8 c 

DIAG = 

INITSWs 

RK05CR* 

RK06E 

RP04CRS 

RX02CRS 

R3 = 

R7 * 

TU10CR= 



000400 
165564 
173024 
177404 
000176 
176700 
177170 
%000003 
%000007 
172522 



BIT9 


s 001000 


ERROR 


000134 


MRESER 


:r 173000 


RK06 


000000 


RK06M 


000012 


RS03CR 


:= 172040 


R0 


«%000000 


R4 


»%000004 


SP 


b%000006 


TU16CP 


:= 172440 



CBOOT 

GBOOT 

PC 

RK06B 

RL01C 

RS04C 

Rl 

R5 

START 

TU56C 



000102 

000142 

s%000007 

000030 

Rx 174400 

Rs 172040 

s%000001 

x%000005 

000142 

Rs 177342 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE RL01 OPTION(S). 

TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 
IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 
IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 
IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 
IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 



7 AND 8 OF THE WHOLE WORD. 
ADDR, 1730XX 
ADDR, 1732XX. 
ADDR, 1734XX. 
ADDR, 1736XX. 









•SBTTL 


RL01 BOOT 










jCMND s 


"DL" 


000000 


042114 




RL01: 


•ASCII 


"LD" 


000002 


000176 






• WORD 


<RL01E-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


#0,R0 


000012 


012701 


174400 


RL01M: 


MOV 


#RL01CR,R1 


000016 


010704 






MOV 


PC,R4 


000020 


103064 






BCC 


BDIAG 


000022 


000402 






BR 


1$ 


000024 


173000 






• WORD 


MRESERVED 


000026 


000340 






• WORD 


RESERVED 


000030 


010003 




1$: 


MOV 


R0,R3 


000032 


000303 






SWAB 


R3 


000034 


010311 






MOV 


R3,(R1) 


000036 


012761 


000013 000004 


MOV 


#13,4(R1) 


000044 


052703 


000004 




BIS 


#4,R3 


000050 


010311 






MOV 


R3,(R1) 


000052 


105711 




2$: 


TSTB 


(Rl) 


000054 


100376 






BPL 


2$ 


000056 


105003 






CLRB 


R3 


000060 


052703 


000010 




BIS 


#10, R3 


000064 


010311 






MOV 


R3, (Rl) 


000066 


105711 




3$: 


TSTB 


(Rl) 


000070 


100376 






BPL 


3$ 


000072 


016102 


000006 




MOV 


6(R1),R2 


000076 


042702 


000077 




BIC 


#77, R2 


000102 


005202 






INC 


R2 


000104 


010261 


000004 




MOV 


R2,4(R1) 


000110 


105003 






CLRB 


R3 


000112 


052703 


000006 




BIS 


#6,R3 


000116 


010311 






MOV 


R3,(R1) 


000120 


105711 




4$: 


TSTB 


(Rl) 


000122 


100376 






BPL 


4$ 


000124 


005061 


000004 




CLR 


4(R1) 


000130 


012761 


177000 000006 


MOV 


#-512.,6(Rl) 


000136 


105003 






CLPB 


R3 


000140 


052703 


000014 




BIS 


#14, R3 


000144 


010311 






MOV 


R3,(R1) 


000146 


105711 




5$: 


TSTB 


(Rl) 


000150 


100376 






BPL 


5$ 


000152 


005711 






TST 


(Rl) 



;ID OF RL11/RL01 BOOT, 

SOFFSET TO NEXT DEVICE BOOT, 

jUNIT 0, NO DIAG, ENTRY POINT 

;UNIT 0, RUN DIAG, ENTRY POINT, 

JLOAD CSR ADDR, INTO Rl 

J ENTRY POINT FROM CONSOLE EMULATOR, 

TEXERCISE DIAG, FC=0 



jASSUME SYSTEM INIT ON ENTRY. 
;SET UNIT NUMBER, 
jCLEAR DRIVE ERROR. 



; ISSUE GET STATUS. 
;WAIT TILL DONE. 



; ISSUE A READ HEADER. 

?WAIT TILL DONE, 

;GET HEADER. 
jCLEAR SECTOR. 

j SET SEEK TO ZERO. 



;DO SEEK. 

jWAIT TILL DONE. 

jCLEAR DISK ADDR. 
;SET WORD COUNT. 

;READ DATA CMND. 
;ISSUE READ CMND. 
JWAIT TILL DONE. 

;LOOK FOR ERRORS. 
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000154 


100003 




000156 


000005 




000160 


000164 


000002 


000164 


042711 


000377 


000170 


005007 




000172 


000137 
000176 


165564 


000176 


174540 
000001 





ERROR: 



GBOOTs 



BOIAG: 
RL01E: 



BPL 


GBOOT 


RESET 




JMP 


2(R4) 


BIC 


#377, (Rl) 


CLR 


R7 


JMP 


MDIAG 


• *176 




• WORD 


174540 


• END 





JSYSTEM INITIALIZE, 

;CLEAR RL01. 
jGOTO SECONDARY BOOT, 



;CRC WORD FOR LAST 63. WORDS. 



SYMBOL TABLE 



BDIAG 000172 


BIT8 s 000400 


BIT9 a 001000 


CRCWD s 000000 


DIAG * 165564 


ERROR 000156 


GBOOT 000164 


HSRCR a 177550 


INITSW* 173024 


MRESERs 173000 


PC s%000007 


RESERVx 000340 


RK05CRS 177404 


RK06CR» 177440 


RL01 000000 


RL01CRS 174400 


RL01E 000176 


RL01M 000012 


RP03CRS 176714 


RP04CR3 176700 


RS03CRS 172040 


RS04CRS 172040 


RX01CRS 177170 


RX02CRS 177170 


R0 c%000000 


Rl s%000001 


R2 a%000002 


R3 s%000003 


R4 s%000004 


R5 s%000005 


R6 s%000006 


R7 s%000007 


SP s%000006 


TTCR = 177560 


TU10CR« 172522 


TU16CRS 172440 


TU56CR« 177342 


• s 000200 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE RS03 OPTION(S). 



TO BOOT UNIT 0,AND NOT 
TO BOOT UNIT AND RUN 
THE Y COMPONENT OF THE 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 



RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 
ADDRESS REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD. 

1 THE Y COMPONENT IS 00 ADDR. 1730XX 

2 THE Y COMPONENT IS 01 ADDR. 1732XX. 

3 THE Y COMPONENT IS 10 ADDR. 1734XX. 

4 THE Y COMPONENT IS 11 ADDR. 1736XX, 









•SBTTL 


RS03 BOOT 








?CMND 


DS 




000000 


042123 




RS03: 


•ASCII 


'SD' 


000002 


000176 






• WORD 


<RS03E-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


#0,R0 


000012 


012701 


172040 


RS03M: 


MOV 


#RS03CR,R1 


000016 


010704 






MOV 


PC,R4 


000020 


103026 






BCC 


BDIAG 


000022 


000402 






BR 


1$ 


000024 


173000 






• WORD 


MRESERVED 


000026 


000340 






• WORD 


RESERVED 


000030 


010003 




1$: 


MOV 


R0,R3 


000032 


010361 


000010 


RS03B: 


MOV 


R3, 10CR1) 


000036 


016161 


000016 


000016 


MOV 


16(R1),16(R1) 


000044 


012761 


177000 


000002 


MOV 


»-512.,2(Rl) 


000052 


012711 


000071 




MOV 


#71, (Rl) 


000056 


105711 




1$: 


TSTB 


(Rl) 


000060 


100376 






BPL 


1$ 


000062 


005711 






TST 


(Rl) 


000064 


100401 






BMI 


ERROR 


000066 


005007 






CLR 


R7 


000070 


000005 




ERROR: 


RESET 




000072 


000164 


000002 




JMP 


2CR4) 


000076 


000137 


165564 


BDIAG: 


JMP 


e#DIAG 


000176 


126075 
000001 




RS03E; 


• WORD 

• END 


126075 ;CRC1 



;IDENTIFIER *DS' FOR RS03 BOOT, 

• OFFSET TO NEXT ROM, 

fENTRY FOR UNIT 0,NO CPU DIAG RUN. 

;ENTRY FOR UNIT 0,RUN CPU DIAG. 

;PUT ADDR. OF CSR INTO Rl. 

J GET RETURN ADDR., 

J 'GOTO DIAG IF ENABLED(C*0) . 



;SET UNIT NUMBER 
jWRITE ATTENTION FLAGS, 
;SET WORD COUNT. 
;SET COMMAND READ. 
JWAIT TILL READY, 

;LOOK FOR ERRORS,, 
?IF ERROR, TAKE CARE OF IT, 
jELSE EXIT TO LOADED CODE,, 
;INIT SYSTEM. 

jGOTO DIAGNOSTICS 
;RETURN MADE THROU ADDR. IN R4. 
WORD FOR LAST 63, WORDS, 



SYMBOL TABLE 



BDIAG 000076 


BIT8 s 000400 


B1T9 = 001000 


CRCWD = 000000 


DIAG 165564 


ERROR 000070 


HSRCR = 177550 


INITSWs 173024 


MRESERs 173000 


PC s%000007 


RESERV= 000340 


RK05CRS 177404 


RK06CR* 177440 


RL01CR= 174400 


RP03CR= 176714 


RP04CRS 176700 


RS03 000000 


RS03B 000032 


RS03CR= 172040 


RS03E 000176 


RS03M 000012 


RS04CRS 172040 


RX01CR= 177170 


RX02CR= 177170 


R0 s%000000 


Rl =%000001 


R2 =%000002 


R3 s%000003 


R4 =%000004 


R5 s%000005 


R6 =%000006 


R7 s%000007 


SP =%000006 


TICK = 177560 


TUJ0CRS 172522 


TU16CRS 172440 


TU56CR= 177342 


. s 000200 







M9312 ROM LISTING BOOTSTRAP (K-SP-M9312-0-7) 



Page 13 



M9312 BOOTSTRAP ROM LISTING 



THIS ROM WILL BOOT THE RX01 OPTION(S). 



TO BOOT UNIT 0,AND NOT 
TO BOOT UNIT AND RUN 
THE Y COMPONENT OF THE 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 



•SBTTL 
;CMND 



RX01 BOOT 
"DX" 



RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 
ADDRESS REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD, 

1 THE Y COMPONENT IS 00 ADDR, 1730XX 

2 THE Y COMPONENT IS 01 ADDR. 1732XX. 

3 THE Y COMPONENT IS 10 ADDR. 1734XX. 

4 THE Y COMPONENT IS 11 ADDR. 1736XX. 



000000 
000002 
000004 
000006 
000012 
000012 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000036 
000042 
000044 
000050 

000054 
000056 
000060 
000062 
000064 
000072 
000074 
000076 
000102 
000104 
000106 
000110 
000112 
000114 
000116 
000120 



042130 
000176 
000261 
012700 

012701 
010704 
103056 
000402 
173000 
000340 
000241 
012703 
132700 
001402 
012703 
132711 

001775 
110311 
111105 
100376 
112761 
106003 
102771 
032711 
001775 
100412 
000303 
110311 
005003 
105711 
100376 
116123 



000000 
177170 



001407 
000001 

011427 
100040 



000001 000002 



100040 



THIS BOOT READ TRACK 1, SECTOR 1 OFF DISK. IT CAN ONLY LOOK AT 
DRIVE OR DRIVE 1. 

IF ANY ERROR IS ENCONTERED I.E. DRIVE OFF LINE, NO DISK, ETC, 
A SYSTEM INIT. IS ISSUED AND WE TRY AGAIN TO REBOOT THE DISK. 



RX01: 



RX01M: 



1$: 
RX01B: 



1$: 



2$: 



3$: 



4$ 



000002 



•ASCII 

• WORD 
SEC 
MOV 

MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 
CLC 
MOV 
BITB 
BEQ 
MOV 

BITB 

• 

BEQ 

MOVB 

MOVB 

BPL 

MOVB 

RORB 

BVS 

BIT 

BEQ 

BMI 

SWAB 

MOVB 

CLR 

TSTB 

BPL 

MOVB 



"XD" 
<RX01E-.+2> 

#0,R0 

*RX01CR,R1 

PCR4 

BDIAG 

1$ 

MRESERVED 

RESERVED 

#1407, R3 

«1,R0 

1$ 

#11427, R3 

#100040, (Rl) 

1$ 

R3,(R1) 

(R1),R5 

2$ 

#1,2(R1) 

R3 

2$ 

#100040, (Rl) 

3$ 

ERROR 

P3 

R3,(R1) 

R3 

(Rl) 

4$ 

2(R1),(R3)+ 



fCMND "DX" RX01 BOOT, 

JOFFSET TO NEXT DEVICE BOOT, 

JUNIT 0, NO DIAG 

?UNIT RUN 

SENTRY FROM CONSOLE EMULATOR 

? GET CSR ADDR TO Rl 

jEXERCISE DIAG. IF C=D 



J IS DONE BIT SET? 



?LOAD READ CMND. 
;IS 'TR' BIT SET? 

JLOAD TRACK, SECTOR ADDR 



JWAIT FOR ERROR OR DONE 
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000124 
000126 
000130 
000132 
000134 

000144 
000146 
000150 

000154 
000156 
000176 



105703 
100372 
005007 
000005 
000140 

000261 
000721 
012700 

000716 
000137 
105572 
000001 



012700 000001 



000001 



165564 





T5TB 


R3 




BPL 


4$ 




CLR 


PC 


ERROR: 


RESET 






mi: 


MOV 




SEC 






BR 


RX01M 


M2: 


MOV 


#1,R0 




BR 


RX01M 


BDIAG: 


JMP 


e«DIAG 


RX01E: 


• WORD 


105572 


• END 







?ALL DONt READS? 
J NO GET NEXT BYTE 
; START CODE 

#1,R0 J ENTER HERE TO BOOT 

fUNIT #1 WITHOUT DIAG. 



J ENTER HERE TO BOOT 
;UNIT #1 WITH DIAG. RUN. 



BDIAG 


000156 


DIAG = 


165564 


MRESER* 


173000 


RESERVE 


000340 


RP03CR- 


176714 


RX01 


000000 


RX01M 


000012 


R2 = ! 


1000002 


R6 «« 


1000006 


TU10CR= 


172522 



SYMBOL TABLE 

BIT8 = 000400 BIT9 = 001000 

ERROR 000132 HSRCR * 177550 

Ml 000140 M2 000150 

RK05CR* 177404 RK06CR* 177440 

RP04CR= 176700 RS03CR= 172040 

RX01B 000032 RX01CR* 177170 

RX02CR= 177170 R0 a%000000 

R3 s%000003 R4 s%000004 

R7 =%000007 SP s%000006 

TU16CR* 172440 TU56CR« 177342 



CRCWD 

INITSW 

PC 

RL01CR 

RS04CR 

RX01E 

Rl 

R5 

TTCR 



s 000000 
a 173024 
a%000007 
s 174400 
s 172040 
000176 
s%000001 
s%000005 
s 177560 
s 000200 
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.TITLE M9312 BOOTSTRAP ROM LISTING 
.REM % 



COPYRIGHT (C) 1977*1978 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 

PROGRAM BY EDWARD C. BADGER 

THIS BOOT BOOTS THE RX»2 FLOOpY DISK FORM COMMAND "DY" 

THE SECOUNDAY BOOT MUST BE IN DISK TRACK 1 

SECTORS 1,3,5, AND 7 IF ANY SECTOR IS UN5ED,IT STILL WILL BE READ. 
NOTE : SINGLE DENSITY WILL BOOT 256 WORDS STARTING AT 
LOC 

SDOUBLE DENSITY WILL BOOT 1000 WORDS, STARTING 
? LOC 0. 

THIS ROM WILL BOOT THE RX02 OPTION(S). 
TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 
IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 
IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 
IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 
IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 

•SBTTL RX02 BOOT 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX, 



000000 


042131 






•ASCII 


"YD" 


000002 


000176 






• WORD 


<RX02E-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


«0,R0 


000012 


012701 


177170 




MOV 


«RX02CR,R1 


000016 


010704 




L6: 


MOV 


PCR4 


000020 


103064 






BCC 


BDIAG 


000022 


000402 






BR 


1$ 


000024 


173000 






• WORD 


MRESERVED 


000026 


000340 






• WORD 


RESERVED 


000030 






1$: 






000030 


005103 




L62: 


COM 


R3 


000032 


000005 






RESET 




000034 


012704 


000401 




MOV 


«401,R4 


000040 


005002 




L7: 


CLR 


R2 


000042 


012705 


000200 




MOV 


#200, R5 


000046 


042703 


177377 




BIC 


#*C<BIT8>,R3 


000052 


001001 






BNE 


LL6 


000054 


006205 






ASP 


R5 


000056 






LL6: 






000056 






ll: 






000056 


050700 






BIS 


PCR0 



ASSCI IDENTIFIER FOR THIS BOOT "DY" 

OFFFSET TO NEXT DEVICE BOOT. 

ENTRY POINT FOR NOT DIAG RUN. 

ENTRY POINT TO RUN DIAG. 

PUT CSR ADDR. IN Rl 

RECORD BOOT ADDR. 

IF ENABLED ,RUN DIAG. 

CONTINUE PAST POWER UP RESERVED LCO 

POWER UP HERE FOR NEW PC. 

POWER UP HERE FOR NOW STATUS WORD 

CHANGE STATE OF DENSITY BIT. 

SYSTEM INITAILIZE. 

TRACK, SECTOR INFO. 

START ADDR. 

IF ALREADY SET, CLEAR IT. 

CLEAR OUT ALL BUT DENSITY INFORMATION. 

IF SET, DOUBLE DENSITY. 

IF CLEAR, IT WAS SINGLE DENSITY, MUST 

HALF THE WORD COUNT. 

R0 WILL CONTAIN EITHER A ZERO OR A ONE. 
BY ADDING THE PC AND THE NEXT OFFSET, WE 
COME UP WITH THHE ADDRESS OF THE BYTE THAT 
CONTAINS THE START CODE FOR EITHER UNIT 
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000060 
000064 
000066 
000070 
000072 
000074 
000076 
000100 
000102 
000104 
000106 
000110 
000112 
000114 



000116 



000120 
000122 
000124 
000130 
000132 
000136 
000140 
000144 
000146 
000150 
000152 
000154 
000160 
000162 
000164 
000170 
000172 
000176 



156003 
040700 
010706 
000423 
000432 
000416 
000415 
000425 
000430 
000407 
060502 
060502 
122424 
120427 



007 



003756 
005007 
010261 
000403 
110461 
000304 
032711 
001775 
100730 
005726 
000116 
042703 
010311 
000766 
110561 
000763 
000137 
057141 
000001 



000036 



027 



READ: 



000002 
000002 
100240 



WAITD2: 



WAITS: 

wait: 



000004 

000002 
165564 



SYMBOL 



EMPTY: 
RDDY: 

WAITD: 

BDIAG: 
RX02E: 
• END 
TABLE 



BISB READ-.(R0),R3 

BIC PC*R0 

MOV PC#R6 

BR WAIT 

BR RDDY 

BR WAITS 

BR WAITS 

BR EMPTY 

BR WAITD 

BR WAITD2 

ADD R5,R2 

ADD R5,R2 

CMPB (R4)+,(R4)+ 

CMPB R4,(PC)+ 



.BYTE 7,27 



BLE LL 

CLR R7 

MOV R2,2(R1) 

BR WAIT 

MOVB R4,2(R1) 

SWAB R4 

BIT #100240, (Rl) 

BEQ WAIT 

BMI L62 

TST (6)t 

JMP (6) 

BIC «4,R3 

MOV R3,(R1) 

BR WAIT 

MOVB R5,2(R1) 

BR WAIT 

JMP £«DIAG 

.WORD 057141 



?OR UNIT ONE, 

;READ EITHER "007" FOR UNIT OR "027" FOR UNIT 1. 

j RESTORE R0 TO UNIT NUMBER. 

J RECORD WHERE WE ARE FOR RETURN. 

;WAIT UNIT UNIT IS READY. 

;SET READ SECTOR 

jGIVE SECOTR INFORAMATION. 

;GIVE TRACK INFORMATION. 

GIVE WORD COUNT 
GIVE CURRENT ADDR. 
UPDATE CUURRENT ADDR. 

UPDATE SECTOR NUMBER. 

IF THE LAST SECTOR IS #7, READ 

ONE MORE SECTOR. IF GREATOR (OCTAL 11) THEN 

THEN WE'LL EXIT. 

THE #7 IN LOWER BYTE FOR LAST INSTR. AND 

THESE LOCATIONS ALSO USED BY PREVOUS 

INSTR. AS DATA FOR UNIT 1 OR UNIT 2 

READ SECTOR WITH UNIT NUMBER. 

READS SECTORS 1,3,5,7 

EXIT TO LOC ZERO 

LOAD CURRENT ADDR. 

LOAD TRACK OR SECTOR INFO. 

LOOK FOR ERROR#T/R OR DONE. 

IF NONE, LOOP 

IF ERROR, RESART. 

FIX REURN ADDR. 

RETURN FROM WHERE YE CAME. 



; STORE WORD COUNT IN DBR 
;WAIT TILL DONE. 

JCRC-16 WORD FOR THIS BOOOT. 



BDIAG 

DIAG 

LL 

L7 

READ 

RL01CR 

RS04CR 

R0 

R4 

SP 

TU56CR 

WAITS 



000172 

a 165564 

000056 

000040 

000116 

s 174400 

s 172040 

s%000000 

s%000004 

s%000006 

= 177342 

000132 



BIT8 

EMPTY 

LL6 

MRESER: 

RESERV: 

RP03CR: 

RX01CRJ 

Rl ' 

R5 : 

TTCR s 

WAIT 



'• 000400 
000154 
000056 
• 173000 
i 000340 
: 176714 
: 177170 
:%000001 
:%000005 
: 177S60 

000140 
'■ 000200 



BIT9 

HSRCR ' 

L6 

PC 

RK05CR: 

RP04CR: 

RX02CR: 

R2 

R6 

TU10CR: 

WAITD 



: 001000 
• 177550 

000016 
:%000007 
: 177404 
: 176700 
i 177170 
:%000002 
:%000006 
'. 172522 

000164 



CRCWD : 

INITSWj 

L62 

RDDY 

RK06CR: 

RS03CR: 

RX02E 

R3 : 

R7 : 

TU16CR: 

WAITD2 



i 000000 
: 173024 

000030 

000160 
: 177440 
: 172040 

000176 
%000003 
%000007 
: 172440 

000124 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE TU10 OPTION(S). 



TO BOOT UNIT 0,AND NOT 
TO BOOT UNIT AND RUN 
THE Y COMPONENT OF THE 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 
IF THIS ROM IS IN SLOT 



RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



ADDRESS REPRESENTS BITS 

1 THE Y COMPONENT IS 00 

2 THE Y COMPONENT IS 01 

3 THE Y COMPONENT IS 10 

4 THE Y COMPONENT IS 11 



7 AND 8 OF THE WHOLE WORD 
ADDR, 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



.SBTTL 



;TU10 BOOT 
;CMND s MT 



BOOTS UNITS 0,1, OR 2 

WITH OR WITHOUT DIAGNOSTICS 



000000 
000002 
000004 
000006 
000012 
000016 
000020 
000022 
000024 
000026 
000030 
000034 
000036 
000042 
000044 
000046 
000050 
000052 
000054 
000060 
000062 
000066 
000070 
000072 
000100 
000104 
000106 
000110 
000112 
000114 
000122 
000124 
000130 
000134 
000136 
000140 
000142 
000144 



046524 
000176 
000261 
012700 
012701 
010704 
103054 
000411 
173000 
000340 
012700 
000766 
012700 
000261 
000762 
010003 
000303 
010311 
006061 
103375 
052711 
105711 
100376 
012761 
112711 
105711 
100376 
005711 
100415 
012761 
011103 
042703 
152703 
010311 
105711 
100376 
005711 
100004 



000000 
172522 



TU10: 



TU10M: 



000001 
000001 



177776 
060017 



177777 
000011 



000002 



1$: 
TU10B: 

1$: 

2$: 
3$: 



4$: 



177000 000002 CBOOT: 

000377 
000003 

1$: 



•ASCII 

.WORD 

SEC 

MOV 

MOV 

MOV 

BCC 

BR 

• WORD 

• WORD 
MOV 
BR 
MOV 
SEC 
BR 
MOV 
SWAB 
MOV 
ROR 
BCC 
BIS 
TSTB 
BPL 
MOV 
MOVB 
TSTB 
BPL 
TST 
BMI 
MOV 
MOV 
BIC 
BISB 
MOV 
TSTB 
BPL 
TST 
BPL 



"TM" 
<TU10E-.+2> 

«0,R0 

#TU10CR,R1 

PCfR4 

BDIAG 

1$ 

MRESERVED 

RESERVED 

«1,R0 

TU10M 

#1,R0 

TU10M 

R0,R3 

R3 

R3,(R1) 

-2(Rl) 

1$ 

#60017, (Rl) 

(Rl) 

3$ 

#-l,2(Rl) 

#11, (Rl) 

(Rl) 

4$ 

(Rl) 

ERROR 

#*512.,2(R1) 

(R1),R3 

#377, R3 

#3,R3 

R3,(R1) 

(1) 

1$ 

(Rl) 

GBOOT 



?TM11/TU10 BOOT 
;OFFSET TO NEXT DEVICE BOOT. 
jENTRY POINT TO UNIT NO DIAG. 
jENTRY POINT TO DIAGNOSTICS 
;LOAD CSR ADDR INTO Rl. 
JENTRY POINT 

;GOTO BOOT. 



jSTART UNIT #1 DIAGNOSTICS 
JSTART UNIT #1 NO DIAGNOSTICS 



;FIX UNIT # 

;SEE IF THE SELECTED DRIVE IS ON LINE 

?WAIT IF NOT. 

JREWIND, 800 BPI 9 CHANNEL 

;WAIT TILL DONE 

?SET RECORD COUNTER TO SKIP ONE RECORD 
;SPACE FORWARD CMND. 
;WAIT FOR ERROR OR READY 

;SEE IF ERROR 

JLOAD WORD COUNT 
;SET READ 



jWAIT TILL DONE 

;TEST FOR ERRORS. 
;NO - ERRROR - EXIT. 
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000146 
000150 
000152 
000156 
000162 

000176 



000005 
000720 
000137 
042711 
005007 
000176 
021526 
000001 



165564 
000377 



ERROR: 


RESET 






BR 


TU10M 


BDIAG: 


JMP 


MDIAG 


Gboot: 


BIC 


#377, (Rl) 




CLR 


PC 




.3176 




TU10E: 


• WORD 
.END 


021526 



JELSE, INITIALIZE, TRY AGAIN, 



JCLEAR CONTROLLER. 
?GO TO SECONDARY BOOT, 



SYMBOL TABLE 



BDIAG 000152 


BIT8 s 000400 


BIT9 a 001000 


CBOOT 000114 


CRCMD « 000000 


DIAG * 165564 


ERROR 000146 


GBOOT 000156 


HSRCR » 177550 


INITSW* 173024 


MRESERs 173000 


PC a%000007 


RESERVa 000340 


RK05CRS 177404 


RK06CRa 177440 


RL01CRS 174400 


RP03CR» 176714 


RP04CR= 176700 


RS03CRS 172040 


RS04CR3 172040 


RX01CR* 177170 


RX02CRS 177170 


R0 «%000000 


Rl s%000001 


R2 »%000002 


R3 a%000003 


R4 «%000004 


R5 s%000005 


R6 *%000006 


R7 s%000007 


SP s%000006 


TTCR s 177560 


TU10 000000 


TU10B 000050 


TU10CR= 172522 


TU10E 000176 


TU10M 000012 


TU16CRS 172440 


TU56CR= 177342 


• s 000200 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE TU16/TU77 OPTION(S). 



TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



000000 
000002 
000004 
000006 
000012 
000016 
000020 
000022 
000024 
000026 
000030 
000030 
000032 
000034 
000040 
000044 
000052 
000054 
000060 
000064 
000066 
000072 
000076 
000100 
000106 
000112 
000116 
000120 
000126 
000134 
000136 
000142 
000146 
000150 
000152 
000154 
000156 
000160 
000166 



046515 
000176 
000261 
012700 
012701 
010704 
103064 
000402 
173000 
000340 

000005 
010003 
052703 
010361 
032761 
001774 
112711 
105761 
100375 
112711 
105761 
100375 
012761 
112711 
105761 
100375 
016161 
012761 
011103 
042703 
152703 
010311 
105711 
100376 
005711 
100004 
022761 
001320 



000000 
172440 



001300 
000032 
010000 

000007 
000012 

000011 
000012 

177777 
000031 
000012 

000016 
177000 

000377 
000071 



000012 



000006 



000016 
000002 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 
IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 
IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 
IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 
IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 

% 

•SBTTL JTU16/TU77 BOOT 
JCMND s "MM" 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



TU16: 



TU16M: 



TU16B: 
TU16ER! 



1$: 
2$: 



3$: 



4$: 



CMM$GO: 



1$: 



001000 000014 



•ASCII 

• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 

RESET 

MOV 

BIS 

MOV 

BIT 

BEQ 

MOVB 

TSTB 

BPL 

MOVB 

TSTB 

BPL 

MOV 

MOVB 

TSTB 

BPL 

MOV 

MOV 

MOV 

BIC 

BISB 

MOV 

TSTB 

BPL 

TST 

BPL 

CMP 

BNE 



"MM" 
<TU16E-.+2> 

#0,R0 

#TU16CR,R1 

PC,R4 

BDIAG 

TU16B 

MRESERVED 

RESERVED 



R0,R3 

#1300, R3 

R3,32(R1) 

#10000, 12(R1) 

1$ 

#7,(R1) 

12CR1) 

2$ 

#11, (Rl) 

12CR1) 

3$ 

#-l,6(Rl) 

#31, (Rl) 

12(R1) 

4$ 

16(R1),16(R1) 

#-512.,2(Rl) 

(R1),R3 

#377, R3 

#71, R3 

R3,(R1) 

(Rl) 

1$ 

(Rl) 

CLCRS 

#1000,14(R1) 

TU16EP 



;TU16 BOOT, 

;OFFSET TO NEXT DEVICE BOOT. 

;UNIT ZERO ENTRY 

JLOAD CSR ADDR. INTO Rl 



J 800 BPI AND FORMAT 



JREWIND COMMAND 



JDRIVE CLEAR CMND. 



jSPACE FORWARD CMND. 



;READ CMND 



^PATTERN TO TEST FRAME ERROR BIT 
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000170 
000172 

000176 



005007 
000137 
000176 
162556 
000001 



165564 



clcrs: 


CLR 


PC 


BDIAGs 


JMP 
• «176 


9IDIAG 


TU16E: 


• WORD 

• END 


162556 







SYMBOL TABLE 




BDIAG 000172 


BIT8 a 000400 


BIT* = 001000 


CLCRS 000170 


CMMIGO 000126 


CRCWD * 000000 


DIAG * 165564 


HSRCR a 177550 


INITSWa 173024 


MRESERa 173000 


PC «%000007 


RESERVa 000340 


RK05CR* 177404 


RK06CR= 177440 


RL01CR* 174400 


RP03CRa 176714 


RP04CR« 176700 


RS03CR* 172040 


RS04CRS 172040 


RX01CRa 177170 


RX02CR* 177170 


R0 a%000000 


Rl «%000001 


R2 a%000002 


R3 «%000003 


R4 s%000004 


R5 s%000005 


R6 a%000006 


R7 »%000007 


SP »%000006 


TTCR » 177560 


TU10CRa 172522 


TU16 000000 


TU16B 000030 


TU16CR» 172440 


TU16E 000176 


TU16ER 000030 


TU16M 000012 


TU56CRS 177342 


• a 000200 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE TU60 OPTION(S). 

TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 
IF THIS ROM IS IN SLOT 1 THE Y COMPONENT IS 00 
IF THIS ROM IS IN SLOT 2 THE Y COMPONENT IS 01 
IF THIS ROM IS IN SLOT 3 THE Y COMPONENT IS 10 
IF THIS ROM IS IN SLOT 4 THE Y COMPONENT IS 11 



7 AND 8 OF THE WHOLE WORD. 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 









% 

.SBTTL 


?THIS 
?CMMD 


TA-11,TU60 CAS 
s CT 


000000 


041524 




TAll: 


.ASCII 


"TC" 


000002 


000176 






• WORD 


<TAllE-.+2> 


000004 


000261 






SEC 




000006 


012700 


000000 




MOV 


#0,R0 


000012 


012701 


177500 


TA11M: 


MOV 


#177500, Rl 


000016 


010704 






MOV 


PCR4 


000020 


103042 






BCC 


BDIAG 


000022 


000402 






BR 


1$ 


000024 


173000 






• WORD 


MRESERVED 


000026 


000340 






• WORD 


RESERVED 


000030 


010003 




1$: 


MOV 


R0,R3 


000032 


042703 


177776 


TA11B: 


BIC 


#177776, R3 


000036 


000303 






SWAB 


R3 


000040 


010311 






MOV 


R3, (Rl) 


000042 


010405 






MOV 


R4,R5 


000044 


042705 


000177 




BIC 


#177, R5 


000050 


062705 


000132 




ADD 


#TABLE,R5 


000054 


012702 


000375 




MOV 


#375, R2 


000060 


112503 






MOVB 


(R5)+,R3 


000062 


112511 




LOOP!: 


MOVB 


(R5)*,(R1) 


000064 


100407 






BMI 


DONE 


000066 


130311 




LOOP2: 


BITB 


R3,(R1) 


000070 


001776 






BEQ 


LOOP2 


000072 


105202 






INCB 


R2 


000074 


100772 






BMI 


LOOP1 


000076 


116112 


000002 




MOVB 


2(R1),(R2) 


000102 


000771 






BR 


LOOP2 


000104 


005711 




DONE: 


TST 


(Rl) 


000106 


100404 






BMI 


ERROR 


000110 


005002 






CLR 


R2 


000112 


120312 






CMPB 


R3,(R2) 


000114 


001001 






BNE 


ERROR 


000116 


005007 






CLR 


PC 


000120 


000005 




ERROR: 


RESET 




000122 


000164 


000002 




JMP 


2(R4) 


000126 


000137 


165564 


BDIAG: 


JMP 


MDIAG 


000132 


240 


037 


015 TABLE: 


.BYTE 


240,37,15,5, 


005 


024 


224 









BOOT. 



;TU60 BOOT ID "CT" 

;0FF5ET TO NEXT DEVICE BOOT. 
JUNIT #0 ENTRY, NO DIAG 
jUNIT #0 ENTRY, RUN DIAG 
JLOAD CSR ADDR IN Rl 
j RETURN ADDR. 
;GOT DIAG. IF ENABLED. 



J STRIP JUNK, ONLY UNIT OR 1, 
jPUT IN CORRECT POS. 
JLOAD UNIT # 



JXFERR COUNT. 

j SET COMPARITOR. 

JLEAD COMMAND. 

SWATCH FOR LAST COMMAND. 

JLOOK FOR DONE BIT 



;ANY ERRORS? 



?CORRECT CODE IN LOC 0? 



24,224 



.EVEN 
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000176 



022763 
000001 



TAUE: 
.END 



.WORD 022763 







SYMBOL TABLE 




BOIAG 000126 


BIT8 s 000400 


BIT9 a 001000 


CRCWD s 000000 


DIAG s 165564 


DONE 000104 


ERROR 000120 


HSRCR = 177550 


INITSWa 173024 


LOOP1 000062 


LOOP2 000066 


MRESERs 173000 


PC «%000007 


RESERVE 000340 


RK05CR* 177404 


RK06CRs 177440 


RL01CR* 174400 


RP03CR= 1767H 


RP04CR* 176700 


RS03CRS 172040 


RS04CR* 172040 


RX01CR* 177170 


RX02CR* 177170 


R0 s%000000 


Rl s%00000l 


R2 »%000002 


R3 s%000003 


R4 s%000004 


R5 >%000005 


R6 *%000006 


R7 «%000007 


SP s%000006 


TABLE 000132 


TA11 000000 


TA11B 000032 


TAUE 000176 


TA11M 000012 


TTCR * 177560 


TU10CR« 172522 


TU16CR» 172440 


TU56CR* 177342 


. a 000200 
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M9312 BOOTSTRAP ROM LISTING 

THIS ROM WILL BOOT THE RP02/RP03 OPTION(S). 

TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 



THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 



IF THIS ROM IS IN SLOT 1 
IF THIS ROM IS IN SLOT 2 
IF THIS ROM IS IN SLOT 3 
IF THIS ROM IS IN SLOT 4 



THE Y COMPONENT IS 00 

THE Y COMPONENT IS 01 

THE Y COMPONENT IS 10 

THE Y COMPONENT IS 11 



7 AND 8 OF THE WHOLE WORD, 
ADDR. 1730XX 
ADDR. 1732XX. 
ADDR. 1734XX. 
ADDR. 1736XX. 



THIS ROM WILL BOOT THE RP04/RP05 OPTION (S). 



TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y46, 
TO BOOT UNIT AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y50. 









THE Y COMPONEN1 


* OF THE ADDRESS 


REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD. 








IF THIS 


ROM IS 


IN SLOT 1 THE Y 


COMPONENT IS 00 ADDR. 1730XX 








IF THIS 


ROM IS 


IN SLOT 2 THE Y 


COMPONENT IS 01 ADDR. 1732XX. 








IF THIS 


ROM IS 


IN SLOT 3 THE Y 


COMPONENT IS 10 ADDR. 1734XX. 








IF THIS 


ROM IS 


IN SLOT 4 THE Y 


COMPONENT IS 11 ADDR. 1736XX. 








.SBTTL 


;BOOT FOR RP02, RP03, 


RP04, RP05 










;CMND a 


. »Qp" 


CMND = "DB" 


000000 


042120 




RP03: 


.ASCII 


"PD" 


;ID OF RP02, RP03 BOOT. 


000002 


000042 






• WORD 


<RP03E-,+2> 


;OFFSET TO NEXT DEVICE BOOT. 


000004 


000261 






SEC 




jUNIT 0, NO DIAG ENTRY POINT. 


000006 


012700 


000000 




MOV 


#0,R0 


jUNIT 0, RUN DIAG ENTRY POINT. 


000012 


012701 


176714 


RP03M: 


MOV 


#RP03CR,R1 


J LOAD CSR ADDR. INTO Rl. 


000016 


010704 






MOV 


PC,R4 


JENTRY FROM CONDOLE EMULATOR. 


000020 


103060 






BCC 


BDIAG 


JEXERCISE DIAG. IF C«0. 


000022 


000402 






BR 


1$ 




000024 


173000 






• WORD 


MRESERVED 




000026 


000340 






• WORD 


RESERVED 




000030 


010003 




1$« 


MOV 


R0,R3 




000032 


000303 






SWAB 


R3 




000034 


010311 






MOV 


R3, (Rl) 


;LOAD UNIT #• 


000036 


012702 


000005 




MOV 


#5,R2 


jCODE FOR READ. 


000042 


000425 




RP03E: 


BR 


CM$GO 


jGOTO COMMON BOOT CODE. 










jNEW HEADER BLOCK BEGINS HERE 


000044 


042102 




RP04: 


•ASCII 


"BD" 


?ID OF RP04, RP05 BOOT. 


000046 


000132 






• WORD 


<REND-.+2> 


JOFFSET TO NEXT DEVICE BOOT. 


000050 


000261 






SEC 




jUNIT 0, NO DIAG. ENTRY POINT. 


000052 


012700 


000000 




MOV 


#0,R0 


;UNIT 0, RUN DIAG. ENTRY POINT. 


000056 


012701 


176700 


RP04M: 


MOV 


#RP04CR,R1 


jLOAD CSR ADDR. INTO Rl. 


000062 


010704 






MOV 


PCR4 


JENTRY FROM CONSOLE EMULATOR. 


000064 


103036 






BCC 


BDIAG 


jEXERCISE DIAG IF C=0. 


000066 


010061 


000010 




MOV 


R0,10(R1) 


JSET UNIT NUMBER. 


000072 


012702 


000071 




MOV 


#71, R2 


jCODE FOR READ. 


000076 


012711 


000021 




MOV 


#21, (Rl) 


? ISSUE READ IN PRESET CMND. 


000102 


012761 


014000 000032 




MOV 


#14000, 32(R1) 


;SET FMT22 AND ECC INHIBIT BITS 


000110 


016161 


000016 000016 




MOV 


16(R1),16(R1) 


?WRITE ATTENTION SUMMARY REG. 
;INTO ITSELF, 


000116 


012761 


177000 000002 


CM$GO: 


MOV 


#-512.,2(Rl) 


JLOAD WORD COUNT. 
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000124 
000126 
000132 
000134 
000136 
000140 
000142 
000144 
000146 
000150 
000154 
000160 
000162 



000170 
000174 

000176 



011103 
042703 
050203 
010311 
105711 
100376 
005711 
100003 
000005 
000164 
042711 
005007 
000137 



000377 



000166 000261 



012700 
000706 
000176 
111612 
000001 



000002 
000377 

165564 



000001 



REND: 



;GET CSR CONTENTS, 

j SET NEW COMMAND, 

JWAIT FOR READY. 

;LOOK FOR ERRORS. 

?NONE - CONTINUE 

;IF ERROR, INITIALIZE SYSTEM 

JCLEAR DEVICE (LOW BYTE) 

j AWAY WE GO TO THE NEWLY LOADED CODE J 

jGOTO DIAGNOSTICS. 

?RP02,RP03 ENTRY FOR UNIT #1, NO DIAG 

;###**###♦*♦####♦♦#♦##♦##♦♦#♦##*»♦#♦######♦♦##♦»###*♦##♦ 

SEC 

;###♦#»#♦#♦#*#»#♦###♦##*#*##»##♦###♦##*♦###♦»###*####»## 

;RP02,RP03 ENTRY FOR UNIT #1, RUN DIAG. 

;**##***»*«#«*«*#*****«#**##*****»**#***«*##«*»***•**#*« 

MOV #1,R0 

BR RP03M 

.«176 

.WORD 111612 

.END 





MOV 


(R1),R3 




BIC 


#377, R3 




BIS 


R2,R3 




MOV 


R3,(R1) 


1$: 


TSTB 


(Rl) 




BPL 


1$ 




TST 


(Rl) 




BPL 


CLRGO 


ERROR: 


RESET 






JMP 


2(4) 


CLRGO: 


BIC 


#377, (Rl) 




CLR 


R7 


BDIAG: 


JMP 


£#DIAG 



SYMBOL TABLE 



BDIAG 000162 


BIT8 « 000400 


BIT9 s 001000 


CLRGO 000154 


CM$GO 000116 


CRCWD s 000000 


DIAG = 165564 


ERROR 000146 


HSRCR « 177550 


INlTSWs 173024 


MRESERs 173000 


PC x%000007 


REND 000176 


RESERVs 000340 


RK05CRS 177404 


RK06CR= 177440 


RL01CR3 174400 


RP03 000000 


RP03CRS 176714 


RP03E 000042 


RP03M 000012 


RP04 000044 


RP04CR* 176700 


RP04M 000056 


RS03CR* 172040 


RS04CR= 172040 


RX01CRS 177170 


RX02CRS 177170 


R0 s%000000 


Rl »%000001 


R2 s%000002 


R3 s%000003 


R4 s%000004 


R5 =%000005 


R6 s%000006 


R7 =1000007 


SP s%000006 


TTCR s 177560 


TU10CR= 172522 


TU16CRa 172440 


TU56CR* 177342 


. s 000200 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



000000 



00100 

00200 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 
02000 
02100 
02200 
02300 
02400 
02500 
02600 
02700 
02800 
02900 
03000 
03100 
03200 
03300 
03400 
03500 
03600 
03700 
03800 
03900 
04000 
04100 
04200 
04300 
04400 
04500 
04600 
04700 
04800 
04900 
05000 
05100 
05200 
05300 

00100 



j<U-UTILITIES>TSBOOT.P11.145, 8-NOV-78 12:53:44, EDIT BY KINZELMAN 
.TITLE TSBOOT - TS04 M9312 BOOTSTRAP CODE (ROM PART « 23-764A9) 
•REM I BY PAUL KINZELMAN 

ML1-3 E63 

3-2473 

27-JUN-78 

THIS IS THE M9312 BOOTSTRAP CODE FOR THE TS04 MAG TAPE DRIVE* WRITTEN 
TO CONFORM TO SPEC # ECB1-77-001-00-U BY ED BADGER (10 OCT 77). 

THIS BOOTSTRAP MUST BE LOCATED IN THE 1ST 32K AREA OF THE ADDRESS SPACE. 

THE MAGTAPE MUST HAVE A SINGLE RECORD OR FILE MARK BEFORE THE DESIRED 
BOOTSTRAP RECORD, AND THE BOOTSTRAP RECORD MUST BE 512(10) BYTES LONG. 

THE BOOTSTRAP DOES THE FOLLOWING OPERATIONS: 

OP IF OK, DO IF ERR, DO 

1 SET CHAR 2 2 

2 REWIND 3 1 

3 RD FWD (TP MK) 4 1 

4 READ FWD EXIT 5 

5 RD PREV REV RTY EXIT 1 



ENTER BOOT IN THE STANDARD WAY (R0 s UNIT «, Rl 
SINCE THE TS04 HAS 1 UNIT PER ADDRESS, THE UNIT 
AND ADDED TO THE BUS ADR IN Rl: 



TSSR BUS ADR). 
IS ROTATED LEFT 



2 PLACES 



MS# 


TSSR ADR 


(DEFAULT) 


172522 





172522 


1 


172526 


2 


172532 


3 


172536 



(ETC.) 



UPON EXIT FROM THE BOOT, Rl CONTAINS THE ADDRESS OF THE TSSR REG, 

R2 CONTAINS THE TSBA REG, AND R0 LO BYTE CONTAINS THE UNIT NUMBER. 

IF YOU SUBTRACT 20 FROM R4, R4 WILL POINT TO THE ASCII ID OF THE DEVICE. 

THEREBY YOU CAN FIGURE OUT FROM WHAT MTA TYPE YOU WERE BOOTED FROM, 

FOR THOSE OF YOU WHO KNOW NOTHING ABOUT THE TS04, HERE IS A CHEAT-SHEET, 
THE TSSR REG CONTAINS THE SSR (SUBSYSTEM RDY) BIT INDICATING THAT THE 
DRIVE IS RDY FOR THE NEXT COMMAND. THE TSSR ALSO CONTAINS THE SC (SPECIAL 
CONDITION) BIT INDICATING THAT SOMETHING ABNORMAL (USUALLY ERROR) HAPPENED 
DURING THE LAST OPERATION. TO DO AN OPERATION, WE WAIT FOR THE SSR BIT 
TO COME TRUE. WE THEN WRITE THE ADDRESS OF THE COMMAND PACKET WE WISH 
TO PERFORM INTO THE TSBA. WHEN SSR COMES TRUE AGAIN, WE CHECK 
THE SC BIT TO TELL US WHETHER ANYTHING UNUSUAL HAPPENED. 

THE ADDRESS OF THE COMMAND PACKET MUST BE ON AN EVEN 4 WORD BOUNDARY (THE 
LO ORDER 2 BITS ARE 0). BIT 17 OF THE PACKET ADR IS MOVED TO BIT 1 OF 
THE POINTER AS WRITTEN INTO THE TSBA AND BIT 16 OF THE PACKET ADR IS 
MOVED TO BIT OF THE POINTER. 

AND A FREE DINNER TO THE FIRST ONE TO COME UP WITH A SHORTER BOOTSTRAP 
THAN THIS ONE THAT DOES THE EQUIVALENT OPERATIONSJ 

.ASECT 
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56 






57 






58 




172522 


59 




165564 


60 




022000 


61 






62 


022000 


046523 


63 


022002 


000176 


64 


022004 


000261 


65 


022006 


012700 000000 


66 


022012 


012701 172522 


67 


022016 


010704 


68 


022020 


103063 


69 


022022 


000411 


70 


022024 


173000 


71 


022026 


000340 


72 






73 






74 


022030 


142010 


75 


022032 


000000 


76 


022034 


000000 


77 


022036 


001000 


78 






79 


022040 


140004 


80 


022042 


001012 


81 


022044 


000000 


82 






83 






84 






85 






86 


022046 


010003 


87 






88 






89 


022050 


010702 


90 


022052 


012705 001022 


91 


022056 


014245 


92 


022060 


105705 


93 


022062 


001375 


94 


022064 


006303 


95 


022066 


006303 


96 






97 






98 


022070 


060301 


99 


022072 


010102 


100 


022074 


005742 


101 


022076 


105711 


102 


022100 


100376 


103 






104 






105 


022102 


005037 000000 


106 






107 


022106 


012712 001010 


108 


022112 


111103 


109 


022114 


100376 


110 







00200 

00300 

00400 

00500 

00600 

00700 

00800 

00900 

01000 

01100 

01200 

01300 

01400 

01500 

01600 

01700 

01800 

01900 

02000 

02100 

02200 

02300 

02400 

02500 

02600 

02700 

02800 

02900 

03000 

03100 

03200 

03300 

03400 

03500 

03600 

03700 

03800 

03900 

04000 

04100 

04200 

04300 

04400 

04500 

04600 

04700 

04800 

04900 

05000 

05100 

00100 
00200 
00300 
00400 



.ENABL ABS 

T504SR" 172522 
DIAGs 165564 
.•22000 



;FIRST TS04 STATUS REG (TSBA IS PREY WD) 



;FOR NOW 



TS04: 



TS04MI 



•ASCII 

• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 



"SM" 
<CRCWD-.+2> 



#0,R0 

ITS04SR 

PC,R4 

BDIAG 

RSTRT 

173000 

340 



rRl 



JMOVE THE FOLLOWING TO 
CMPRWD: 142010 





256. *2 



CMPSCHI 



140004 

1012 





ASCII CODE (BACKWARDS) 
OFFSET TO NEXT DEVICE 
ENTRY POINT TO UNIT NO DIAG 
ENTRY POINT TO DIAGNOSTICS 
GET THE 1ST TSSR ADR IN Rl 
ENTRY POINT, SAVE RTN PC 
BR TO RUN DIAGNOSTICS 
BR OVER RESERVED WORDS 
THE VOICE FROM ABOVE SAID THESE 
WORDS HAD TO BE HERE 
(XXX24 IS EXCEPTION ADDRESS) 
1000: 

fREWIND (1 WD) 

;LO 16 BITS ADR 

;HI 2 BITS ADR 

;SIZE OF RECORD (512(10) BYTES) 

;SET CHARACTERISTICS CMD (4 WDS) 

;LO 16 BITS OF MSG BUFF POINTER (« .) 

;HI 2 BITS 



RSTRT: MOV 



;THE FOLLOWING MUST NOT BE MOVED AWAY FROM THE END OF THE CMD LIST 

;THE FOLLOWING IS ALSO TAKEN AS THE MSG 
;BUFFER POINTER SIZE AND MBF SIZEl 
jCOPY THE UNIT • 

;THE FOLLOWING IS TAKEN AS THE DRV CHAR* 
;ACTERISTICS WORD: 
;GET WHERE WE ARE 
;END OF COMMAND LST IN CORE 
jMOVE IN THE COMMAND LIST 
j ARE WE DONE YET? 

JLOOP FOR ALL WDS (EXIT WITH R5 « 1000) 
?ROTATE INTO PLACE 
_ ._ ;SO WE CAN ADD IT TO THE ADR 

;NOTE: THE FOLLOWING ASSUMES THE USER TYPED A REASONABLE NUMBER FOR 

;THE UNIT, IF NOT, WE WILL PROBABLY GET A BUSS TIMEOUT, 



1$: 



MOV 

MOV 

MOV 

TSTB 

BNE 

ASL 

ASL 



R0,R3 



PC,R2 

11022, R5 

-(R2),-(R5) 

R5 

1$ 

R3 

R3 



2$: 



ADD 

MOV 

TST 

TSTB 

BPL 



R3,R1 

R1,R2 

-(R2) 

(Rl) 

2$ 



;ADD IN TO THE BUS ADR 
jCOPY THE TS STATUS REG 
jPOINT R2 TO THE TSBA 
;AND CHK FOR SSR 
;BR IF SSR NOT UP YET 



JTHE FOLLOWING MAY BE REMOVED IF WE NEED THE SPACE: 

CLR 3#0 JCLR OUT LOC IN CASE BOOT FAILED WE'LL HALT 



3$: 



MOV #1010, (F2) 
MOVB (R1),R3 
BPL 3$ 

;DON'T 



;DO THE SET CHARACTERISTICS 

;TST SSR BIT UNIT R3 BYTE TO NEG WHEN RDY) 
;BR IF NOT RDY YET 
NEED TO CHK ERRS BECAUSE IF IT FAILED, 
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111 








00500 








JTHE 


112 








00600 










113 


022116 


010512 




00700 


LP1 


» 
• 


MOV 


R5, (R2) 


114 


022120 


105711 




00800 


4$: 




TSTB 


(Rl) 


115 


022122 


100376 




00900 






BPL 


4$ 


116 


022124 


032711 


000012 


01000 






BIT 


#12r(Rl) 


117 


022130 


001346 




01100 






BNE 


RSTRT 


118 


022132 


012715 


140001 


01200 






MOV 


*140001#(R5) 


119 


022136 


105103 




01300 






COMB 


R3 


120 


022140 


100366 




01400 






BPL 


LP1 


121 








01500 










122 


022142 


010512 




01600 


LP2 


» 
» 


MOV 


R5, (R2) 


123 


022144 


105711 




01700 


6$: 




TSTB 


(Rl) 


124 


022146 


100376 




01800 






BPL 


6$ 


125 


022150 


005711 




01900 






TST 


(Rl) 


126 


022152 


100401 




02000 






BMI 


RDBAD 


127 


022154 


005007 




02100 






CLR 


PC 


128 








02200 










129 


022156 


012715 


161001 


02300 


RDBAD: 


MOV 


tl61001r(R5) 


130 


022162 


105103 




02400 






COMB 


R3 


131 


022164 


100366 




02500 






BPL 


LP2 


132 


022166 


000727 




02600 






BR 


RSTRT 


133 








02700 










134 


022170 


000137 


165564 


02800 


BDIAG: 


JMP 


MDIAG ;LIN 


135 


022174 


000000 




02900 






HALT 




136 




001 




03000 


.IF 


LT 


176-<. 


&376> 


137 








03100 


•ERROR 


• 


BOOTSTRAP C 


138 




000 




03200 


• ENDC 






139 


022176 


140726 




03300 


CRCWD: 


140726 




140 




000001 




03400 






• END 




BDIAG 


022170 




CROWD 


022176 




LP2 


022142 


CHPRWO 


022030 




DIAG 


= 165564 




RDBAD 022156 


CMPSCH 


022040 




LP1 


022116 




RSTRT 022046 


. ABS. 


022200 


000 















JTHE NEXT COMMAND WILL CERTAINLY FAIL ANYWAY 



DO THE REWIND OR RD FWD OVER TAPE MARK 

TST SSR BIT 

BR IF NOT RDY YET 

ALLOW TERM CLASS AND 4, CHK FOR OTHERS 

BR IF ERROR* TRY AGN 

CODE FOR RD FWD AS NEXT OPERATION 

INVERT OUR FLG 

BR BACK TO DO THE RD OVER TAPE MARK 

DO RD FWD THE BOOT RECORD (R5»1000) 

TST SSR BIT 

BR IF NOT RDY YET 

TST SC BIT 

BR IF ERROR, DO RETRY 

JMP TO LOC 

CODE FOR RD PREV REV RETRY 
INVERT OUR FLG 
LOOP BACK FOR RD RETRY 
BR TO TRY WHOLE THING AGN 



jTHIS IS A SPARE LOCATION 



;CRC FOR BOOTSTRAP 

TS04 022000 
TS04M 022012 
TS04SR= 172522 



s 022200 
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1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 








20 




165564 




21 




173000 




22 




000340 




23 




0125025 




24 




176500 




25 




176502 




26 




176504 




27 




176506 




28 


000000 


042104 




29 


000002 


000176 




30 


000004 


000261 




31 


000006 


012700 


000000 


32 


000012 


012701 


176500 


33 


000016 


010704 




34 


000020 


103054 




35 


000022 


000402 




36 


000024 


173000 




37 


000026 


000340 




38 


000030 


012706 


002000 


39 


000034 


005004 




40 


000036 


012702 


176504 


41 


000042 


005212 




42 


000044 


005003 




43 


000046 


004767 


000046 


44 


000052 


005012 




45 


000054 


005737 


176502 


46 


000060 


012703 




47 


000062 


004 


010 


48 


000064 


004767 


000034 


49 


000070 


010003 




50 


000072 


004767 


000030 


51 


000076 


005003 




52 


000100 


105711 





;M9312 BOOTSTRAP ROM LISTING 

?THIS ROM WILL BOOT THE TU58 OPTION 

• 

?TO BOOT UNIT 0, AND NOT RUN DIAGNOSTICS THE START ADDR IS 173Y04 

;TO BOOT UNIT 0# AND RUN CPU DIAGNOSTICS THE START ADDR IS 173Y06 
;THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 7 AND 8 OF THE WORD 

;IF THE ROM IS IN SLOT 1 THE Y COMPONENT IS 00 ADDR, 1730XX 

JIF THE ROM IS IN SLOT 2 THE Y COMPONENT IS 01 ADDR. 1732XX 

?IF THE ROM IS IN SLOT 3 THE Y COMPONENT IS 10 ADDR. 1734XX 

?IF THE ROM IS IN SLOT 4 THE Y COMPONENT IS 11 ADDR. 1736XX 

.SBTTL TU58 BOOT 

?♦## NOTE: THIS BOOTSTRAP DOES NOT RETRY IF THE BOOT FAILS. 
j### THIS IS NECESSARY BECAUSE RETRIES CAN DAMAGE THE 
j### TAPE CARTRIDGE IF A HARDWARE FAILURE HAS OCCURRED. 

DIAG« 165564 



TU58I 



TU58M: 



TBOOT: 



RCVLOP: 



MRESERVED 
RESERVED 

CRC 
TISCSR 
TISBFR 
T08CSR 
TOSBFR 
•ASCII 

• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 
MOV 
CLR 
MOV 
INC 
CLR 
JSR 
CLR 
TST 
MOV 

• BYTE 
JSR 
MOV 
JSR 
CLR 
TSTB 



8173000 

s340 

»125025 



3176500 

=176502 

&176504 

S176506 

"DD" 

<TU58E-,+2> 

#0fR0 

#TI$CSR,P1 

PC#R4 

BDIAG 

TBOOT 

MRESERVED 

RESERVED 

#2000, SP 

R4 

#TO$CSR,R2 

9R2 

R3 

PCSEND8 

0R2 

9#TI$BFR 

(PC)+,R3 

4,10 

PCrSEND2 

R0,R3 

PCSEND1 

R3 

£R1 



?ASCII IDENTIFIER 

•OFFSET TO NEXT BOOT 

?ENTRY POINT FOR UNIT NO DIAGS 

jENTRY POINT FOR UNIT WITH DIAGS 

•PUT DEVICE ADDRESS IN Rl 

^DIAGNOSTIC BOILER PLATE 



;SET STACK POINTER 



;SEND BREAK ON SERIAL LINE 

JDELAY 7 CHARACTER TIMES 
; REMOVE BREAK 
;DUMP RECEIVE REGISTER 
;GET INIT, BOOT FLAGS 

;SEND FLAGS 

;SEND UNIT NUMBER 

;SET ADDRESS POINTER TO 

;WAIT FOP CHARACTER RECEIVED 
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53 000102 

54 000104 

55 000110 

56 000114 

57 000116 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
SYMBOL 



000120 
000122 
000124 
000126 
000130 
000132 
000136 
000140 



000142 
000144 
000150 



000176 
TABLE 



100376 
113723 
022703 
101371 
005007 



004717 
004717 
004717 
105712 
100376 
110337 
000303 
000207 



176502 
001000 



BPL 


RCVLOP 


MOVB 


*«TI$BFR*(R3)+ 


CMP 


#1000, R3 


BHI 


RCVLOP 


CLR 


PC 



176506 



; STORE CHARACTER IN MEMORY 
;512 BYTES RECEIVED? 
*NO, LOOP 
;YES, JUMP TO 



; SUBROUTINE TO OUTPUT CHARACTERS TO THE SERIAL LINE 



} SEND 8 CHARACTERS 
;SEND 4 CHARACTERS 
j SEND 2 CHARACTERS 
•TEST TRANSMIT READY 

;SEND CHARACTER 



000261 

012700 000001 

000720 



000152 000137 165564 



000176* 

022540 

000001 



BDIAG 000152R 
CRC * 022540 
DIAG a 165564 
MRESER* 173000 



RCVLOP 000100R 
RESERVs 000340 
SEND1 000126R 
SEND2 000124R 



SEND8| 


JSR 


PCfSPC 




JSR 


pc^pc 


SEND2J 


JSR 


PCr^PC 


SEND1: 


TSTB 


9R2 




BPL 


SEND1 




MOVB 


R3rMTO$BFR 




SWAB 


R3 




RTS 


PC 


?ENTRY 


FOR UNIT 


1 


UNIT1: 


SEC 




UNIT1D: 


MOV 


#1#R0 




BR 


TU58M 


BDIAG: 


JMP 


9IDIAG 




.« 


<TU58*176> 


TU58E1 


• WORD 

• END 


CRC 




SEND8 


000120R 




TBOOT 


000030R 




TISBFRs 


176502 




TI$CSR« 


176500 



;UNIT 1 NO DIAGS 
;UNIT 1 NO DIAGS 



JLINK TO DIAGNOSTIC ADDRESS 



TO$BFRs 176506 
TO$CSR* 176504 
TU58 000000R 
TU58E 000176R 



TU58M 000012R 
UNIT1 000142R 
UNIT1D 000144R 



• ABS. 000000 000 
000200 001 
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1 
2 
3 

4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



.REM 



PRODUCT CODE: 
PRODUCT NAME: 
PRODUCT DATE: 
MAINTAINER: 



IDENTIFICATION 

xxxxxxx-xx-xxxxx-x-x 

M9312 DECNET BOOT - DMC 

APRIL 1978 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION 



% 



1 
2 
3 

4 
5 
6 
7 
8 
9 
10 



• REM % 

THIS ROM WILL BOOT THE DMC OPTION. 
TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT 0,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06. 
TO BOOT UNIT 1,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y30. 
TO BOOT UNIT 1,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y32. 
THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD. 
IF ROM #1 IS IN SLOT 1 THE Y COMPONENT IS 00 ADDR. 1730XX 
IF ROM #1 IS IN SLOT 2 THE Y COMPONENT IS 01 ADDR. 1732XX. 
% 
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1 




2 




3 




4 


000000 


5 


000001 


6 


000002 


7 


000003 


8 


000004 


9 


000005 


10 


000006 


11 


000007 


12 


000006 


13 


000007 


14 


000340 


15 


165564 


16 


173024 


17 


000000 


18 


173000 


19 




20 




21 




31 




32 




38 000000 




39 


020000 



•TITLE M9312 DECNET BOOT - DMC 
BASIC DEFINITIONS 

R0s%0 

R1*%1 

R2«%2 

R3«%3 

R4*%4 

R5*%5 

R6*%6 

R7*%7 

SP*%6 

PCM7 

RESERVED*340 

DIAG*165564 

INITSW»173024 

CRCWDs0 

MRESERVEDsl73000 

•NLIST MCrMD 

•LIST ME 



•ENABL ABS 
.s20000 
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1 

2 








3 








4 


020000 


115 


130 


5 


020002 


000576 




6 


020004 


000261 




7 


020006 


012700 


000000 


8 


020012 


012701 


160010 


9 


020016 


010704 




10 


020020 


103015 




11 


020022 


000416 




12 


020024 


173000 




13 


020026 


000340 




14 


020030 


000261 




15 


020032 


012700 


000001 


16 


020036 


000765 




17 








18 








19 








20 


020040 


005202 




21 


020042 


005303 




22 


020044 


100002 




23 


020046 


000000 




24 


020050 


000776 




25 


020052 


000002 




26 








27 








28 








29 


020054 


000137 


165564 


30 








31 








32 








33 








34 


020060 


012706 


017776 


35 


020064 


012716 


000001 


36 


020070 


012746 


006010 


37 








38 








39 








40 








41 








42 








43 








44 


020074 


010702 




45 


020076 


062702 


000422 


46 


020102 


010704 




47 


020104 


062704 


177734 


48 








49 








50 








51 








52 


020110 


011246 




53 


020112 


166416 


000200 


54 


020116 


022726 


005007 


55 


020122 


001402 





?CMND 

dmcbgn: 



dmcm: 



•ASCII 

• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 
SEC 
MOV 

BR 



XM 

'MX' 

<DMCE-.+2> 

#0,R0 

#160010, Rl 

PC,R4 

BDIAG 

SETSTK 

MRESERVED 

RESERVED 

#1,R0 
DMCM 



; IDENTIFIER *XM' FOR DMC BOOT 

; OFFSET TO NEXT BOOT 

;ENTRY FOR UNIT 0, NO CPU DIAG RUN 

JENTRY FOR UNIT 0, RUN CPU DIAG 

•PUT FLOATING BASE ADDR IN Rl 

; GET RETURN ADDR 

?GO TO DIAG IF ENABLED (C«0) 



J ENTRY FOR UNIT 1, NO CPU DIAG RUN 
; ENTRY FOR UNIT 1, RUN CPU DIAG 



?# FLOATING DEVICE INTERRUPT ROUTINE 



NODEV: 



2$: 



1$: 



INC 

DEC 

BPL 

HALT 

BR 

RTI 



R2 
R3 
1$ 

2$ 



1 UPDATE R2 TO POINT TO NEXT DEV MODULO 

;SUB ONE FROM R3 

;IF CANT FIND DEVICE, HALT 

• ###NOTE*#* 

J REVIEW FLOATING ADDRESS ASSIGNMENTS 

; RETURN 



•#♦#♦####*♦♦♦♦*♦####♦«#*♦##♦##**♦♦*♦#*#*#*##*#**##♦***** 
?# GO TO DIAG 

•##♦####♦##»####♦##*♦##♦#*»♦#####♦♦#♦#♦*♦##*#♦**#####»#* 
BDlAGx JMP MDIAG ?GO TO DIAG 

; RETURN MADE THROUGH ADDR IN R4 
;########♦##♦♦##»#*»«##*###♦###»#♦*»*#♦♦#♦#*♦***»♦•*♦#*# 
;* SET UP REQUEST SECONDARY BOOT MESSAGE AND STACK 
;#*#####♦»##»###♦♦♦######♦#♦##**#*♦#♦♦#♦♦♦**»**♦♦**##•♦* 
SETSTK: MOV #17776, SP ;SET REQ SECOND BOOT MSG POINTER 
MOV #1,CSP) ?SET HIGH ORDER WORD OF MESSAGE 

MOV #6010, -(SP) JSET LOW ORDER WORD OF MESSAGE 

• *#*NOTE*«* 
;BOOT MSGs 10,14,1,0 
jSTACK POINTER IS SET AT 17774 

J# FIND THE DEVICE IN FLOATING SPACE 

;# VERIFY THAT TWO EXTENSION ROMS ARE PROPERLY INSTALLED 

•####♦###♦####»#♦#*♦»##########♦##»♦#»##♦«*♦*****♦#*♦*•* 



2$: MOV PCrR2 

ADD #DEVTAB-2$-2,R2 

3$: MOV PCR4 

ADD #NODEV-3$-2,R4 



MOV 


(R2),-(SP) 


SUB 


200(R4),(SP) 


CMP 


#5007, (SP)* 


BEO 


4$ 



SET UP R2 WITH 
POINTER TO DEVTAB 
SET UP R4 WITH 
POINTER TO TRAP ROUTINE 

###NOTE»## 
THE NEXT FOUR INSTRUCTIONS VERIFY THAT 
THE EXTENSION ROMS ARE PROPERLY INSTALLED 
IF NOT, THE BOOT WILL HALT 
PUSH THE #7407 FROM ROM #3 ON THE STACK 
SUBTRACT FROM IT THE #2400 OFF ROM #2 
COMP IT WITH #5007 
IF NOT EQUAL, HALT 
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56 020124 


000000 


5$: 


HALT 




• #»»NOTE*#* 


57 020126 


000776 




BR 


5$ 


;CHECK POS OF ROMS #2 AND #3 


58 020130 


012703 000004 


4$: 


MOV 


#4,R3 


?SET R3 TO DMC POS IN FLOAT -2 


59 020134 


010423 




MOV 


R4r(R3)+ 


?SET TRAP ROUTINE ADDR IN LOC 4 


60 020136 


005013 




CLR 


(R3) 


;CLR NEW PSW. R3 NOW CONTAINS DMC POS( 


61 020140 


005711 


FLOAT: 


TST 


(Rl) 


jTEST FOR DEVICE, MAYBE TRAP TO NODEV 


62 020142 


111204 




MOVB 


CR2),R4 


J MODULO INCREMENT 


63 020144 


060401 




ADD 


R4,R1 


; UPDATE ADDRESS 


64 020146 


005201 




INC 


Rl 


? BY MODULO 


65 020150 


040401 




BIC 


R4,R1 


J IN TABLE 


66 020152 


005703 




TST 


R3 


;IS THIS A DMC? 


67 020154 


001371 




BNE 


FLOAT 


?NOT YET 


68 




;»#**#««*******#***#«#**#*#******«***##*##«#«***«***#*** 


69 




;* ADD 


UNIT DISPLACEMENT TO 


UNIT CSR ADDR 


70 




;*»**««*#***#*#*«#««***»**«»«******«»**»***«##***«****** 


71 020156 


042700 177760 




BIC 


#177760, R0 


^PREVENT TRYING TO BOOT UNIT • > 15 


72 020162 


010046 




MOV 


R0,-(SP) 


SSAVE UNIT # FOR SECONDARY BOOT 


73 020164 


006300 




ASL 


R0 


;UNIT # TIMES 2 


74 020166 


006300 




ASL 


R0 


JUNIT « TIMES 4 


75 020170 


006300 




ASL 


R0 


;UNIT I TIMES 8 


76 020172 


060001 




ADD 


R0,R1 


;CSR ADDR ♦ UNIT#8 


77 020174 


000402 




BR 


DMC 


;GO TO MAINLINE CODE 


78 020176 


161040 




• WORD 


161040 


JCRC16 WORD FOR ROM #1 


79 020200 


177776 




• WORD 


-2 


; HEADER WORD FOR ROM #2 


80 




;###*♦*####*#»*»♦♦♦#*####♦♦»*####♦*♦♦####»*♦#♦♦♦♦♦»#***« 


81 




;* DMC 


MAINLINE 






82 




;#**»#»#»##»##♦*#######»♦♦###*###########*#»#♦#*#♦###### 


83 020202 


012704 000010 


DMC! 


MOV 


«8wR4 


JSET RETRY COUNT 


84 020206 


000005 




RESET 




J MASTER CLEAR DMC 


85 020210 


010702 




MOV 


PC#R2 


J RETURN ADDR 


86 020212 


000461 




BR 


DMC IN 


J INPUT TO DMC 


87 020214 


000043 




• WORD 


43 


jRQI + BASE REQUEST 


88 020216 


017370 




• WORD 


17370 


;BASE ADDR 


89 020220 


000000 




• WORD 





j NO RESUME 


90 020222 


000402 




BR 


1$ 




91 020224 


173000 




• WORD 


MRESERVED 




92 020226 


000340 




• WORD 


RESERVED 




93 020230 


010702 


1$: 


MOV 


PCR2 


•SET RETURN ADDRESS 


94 020232 


000451 




BR 


DMCIN 


j INPUT TO DMC 


95 020234 


000041 




• WORD 


41 


;RQI + CNTLI 


96 020236 


000000 




• WORD 





;FILLER 


97 020240 


002400 




• WORD 


2400 


JMAINT MODE + HDX 


98 020242 


010702 


DMCRCVi 


! MOV 


PC#R2 


;SET RETURN ADDR 


99 020244 


000444 




BR 


DMCIN 


j INPUT TO DMC 


100 020246 


000044 




• WORD 


44 


;RQI ♦ BA.CC ♦ RCV 


101 020250 


000000 




.WORD 





^BUFFER ADDRESS 


102 020252 


007774 




• WORD 


4092. 


;SET SIZE TO MAX FOR CRC-16 


103 020254 


010705 




MOV 


PCR5 


JSET NON-ZERO AS R5 FLAG (RCV PENDING) 


104 020256 


010702 


DMCXMT! 


I MOV 


PCR2 


j SET RETURN ADDR 


105 020260 


000436 




BR 


DMCIN 


? INPUT TO DMC 


106 020262 


000040 




• WORD 


40 


JRQI ♦ BA/CC t XMIT 


107 020264 


017774 




• WORD 


17774 


^MESSAGE ADDR 


108 020266 


000004 




• WORD 


4 


JMESSAGE LENGTH 


109 020270 


012702 000017 




MOV 


#15.,R2 


?LARGE LOOP COUNTER 
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110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 



020274 
020300 
020302 
020304 
020306 
020310 
020312 
020314 
020316 
020320 
020322 
020324 
020326 
020330 
020332 
020334 
020336 
020340 
020344 
020346 
020350 
020352 
020354 



020356 
020360 
020362 
020364 
020366 
020370 



020374 
020376 
020400 
020402 
020404 
020406 
020410 



020412 
020416 
020422 
020424 
020426 
020430 
020434 
020436 
020440 



105761 
100002 
010703 
000456 
005705 
001754 
005300 
001367 
005302 
001365 
005304 
001354 
010702 
000412 
000043 
017370 
000000 
012703 
005300 
001376 
005303 
001374 
000712 



005722 
112211 
005202 
105711 
100411 
105761 



000402 
114076 
177776 
100370 
010703 
000415 
000765 



012261 
012261 
000402 
173000 
000340 
042711 
105711 
100776 
000112 



000002 



1$: 



2$: 



000012 



HNGLOPI 
1$: 



TSTB 

BPL 

MOV 

BR 

TST 

BEQ 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

MOV 

BR 

• WORD 

• WORD 

• WORD 
MOV 
DEC 
BNE 
DEC 
BNE 
BR 



2(R1) 

2$ 

PC,R3 

DMCOUT 

R5 

DMCRCV 

R0 

1$ 

R2 

1$ 

R4 

DMCXMT 

PCR2 

DMCIN 

43 

17370 



#10.,R3 

R0 

1$ 

R3 

1$ 

DMC 



?TEST RDYO SET 

•NOT YET 

jSET RETURN ADDR 

?CHECK DMC REQUEST 

;IS RECEIVE STILL OUTSTANDING 

jNO, REISSUE ONE 

? DECREMENT SHORT LOOP 

;AGAIN 

; DECREMENT LONG LOOP 

?AGAIN 

; DECREMENT RETRY COUNT 

;SEND AGAIN 

; RETURN ADDR 

J FORCE PROC ERR-SET BASE AGAIN-KILLS 

;RQI + BASE REQUEST 

?BASE ADDRESS AGAIN 

J NO RESUME 

?LONG LOOP COUNTER-HOLD DTR DOWN 

J DECREMENT SHORT LOOP 

;AGAIN 

? DECREMENT LONG LOOP 

;AGAIN 

fHUNG UP LONG ENOUGH-ANSWER AGAIN 



DTR 



?# DMC REQUEST INPUT ROUTINE 



000002 



DMCIN* TST (R2)+ 

MOVB (R2)+,(R1) 

INC R2 

DMCTST: TSTB (Rl) 

BMI RDYIOK 

TSTB 2CR1) 



JPOINT TO FIRST 
;COMMAND TO DMC 
?TO NEXT 
;IS RDYI 
;YES-OK 
J IS RDYO 



PARAMETER WORD 



PARAMETER WORD 
SET? 



J IF 



SET? 
**#NOTE*«* 
HUNG IN LOOP, IS 



000004 
000006 



000040 



BR 1$ 

•WORD 114076 JCRC16 WORD FOR ROM #2 

•WORD -2 ?HEADER WORD FOR ROM #3 

1$: BPL DMCTST ?NO,WAIT 

MOV PC,R3 ;SET RETURN ADDR 

BR DMCOUT ;CHECK DMC REQUEST 

BR DMCTST ;WAIT TILL DMC IS READY 

;# DMC LOAD INPUT ROUTINE 



SW7 OF SW PACK #2 ON? 



RDYIOK: MOV (R2)+,4(R1) 

MOV (R2)+,6(R1) 

BR 2$ 

.WORD MRESERVED 

•WORD RESERVED 

2$; BIC #40, (Rl) 

1$: TSTB (Rl) 

BMI 1$ 

JMP (R2) 



?TO FIRST HALF DMC PORT 
?TO SECOND HALF DMC PORT 



;CLEAR RQI-GIVE TO DMC 
JTEST RDYI CLEAR 
;NOT YET 
;RETURN 
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163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
SYMBOL 

BDIAG 
CRCWD s 
DEVTAB 
DIAG s 
DMC 



?# DMC OUTPUT READY ROUTINE 



020442 
020450 
020452 
020460 
020462 
020464 
020466 
020470 
020472 
020474 
020500 
020506 
020510 
020514 



020520 
020521 
020522 
020523 
020524 
020525 
020526 
020527 



020600 
020604 
020610 
020612 
020616 
020620 
020622 

TABLE 

020054 
000000 
020520 
165564 
020202 



132761 
001013 
132761 
001413 
005005 
005715 
001010 
012600 
000005 
000137 
032761 
001314 
105061 
000163 



007 
017 
007 
007 
007 
007 
007 
000 



020576 060100 



020600 
012702 
012703 
012223 
020227 
001401 
000773 
000000 
000001 



000003 
000004 



000006 
001730 

000002 
000002 



000002 dmcout: bitb 

BNE 
000002 BITB 

BEQ 
CLR 
TST 
BNE 
MOV 
RESET 
JMP 
BIT 
BNE 
CLRB 
JMP 



000006 1$: 
2$: 



020000 
030000 

020576 



#3,2(R1) 

1$ 

#4,2(R1) 

2$ 

R5 

(R5) 

2$ 

(SP)+,R0 

*«6 

#1730, 6CR1) 

HNGLOP 

2CR1) 

2(R3) 



BA/CC OR CRL REQUEST 

CTL REQUEST 

XM1T OR RCV 

XMIT COMPLETE 

RECEIVE COMPLETE SET NON PENDING FLAG 

CHECK FOR CODE 0,LOAD AT LOC 

RECEIVED MESSAGE NO GOOD 

RETURN UNIT « TO R0 

CLEAR DMC-11 

AND JUMP TO LOADED PROGRAM 

FATAL ERROR? 

YES, START AGAIN AFTER TIME DELAY 

CLEAR RDYO-THROW AWAY INFO 

RETURN 



?♦ FLOATING DEVICE MODULO TABLE 



devtab: .byte 

• BYTE 

• BYTE 

• BYTE 

• BYTE 

• BYTE 

• BYTE 

• BYTE 



DMCE: .WORD 



DJ11 DEVICE MODULUS 

DH11 

DQU 

DU11 

DUP11 

LK11-A 

DMC 11 

FILLER 

###NOTE*#* 
THE NEXT 23 WORDS ARE ZERO FILLED 
CRC16 WORD FOR ROM #3 



060100 
J# RELOCATION ROUTINE 
.S20600 



2$: 



1$: 



DMCBGN 

DMCE 

DMCIN 

DMCM 

DMCOUT 



020000 
020576 
020356 
020012 
020442 



MOV 


#20000, R2 


MOV 


#30000, R3 


MOV 


(R2)+,(R3)+ 


CMP 


R2, #20576 


BEQ 


1$ 


BR 


2$ 


HALT 




• END 




DMCRCV 


020242 


DMCTST 


020364 


DMCXMT 


020256 


FLOAT 


020140 


HNGLOP 


020340 



INITSW= 173024 

MRESERs 173000 

NODEV 020040 

RDYIOK 020412 



RESERVs 000340 
R6 s%000006 
R7 s%000007 
SETSTK 020060 
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1 
2 
3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



• REM 



product code: 
product name: 
product date: 
maintainer: 



IDENTIFICATION 

xxxxxxx-xx-xxxxx-x-x 

M9312 DECNET BOOT - DU11 

APRIL 1978 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
BY DIGITAL EQUIPMENT CORPORATION, DIGITAL 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 



TO CHANGE 

COMMITMENT 

EQUIPMENT 



THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL, 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION 
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1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




1 




2 




3 




4 


000000 


5 


000001 


6 


000002 


7 


000003 


8 


000004 


9 


000005 


10 


000006 


11 


000007 


12 


000006 


13 


000007 


14 


000340 


15 


165564 


16 


173024 


17 


000000 


18 


173000 


19 


000226 


20 


000220 


21 


000337 


22 


000201 


23 


000005 


24 


120001 


25 




26 




27 




37 




38 




44 000000 




45 


020000 



• REM % 

THIS ROM WILL BOOT THE DU OPTION. 

TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173*04. 

TO BOOT UNIT 0,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06, 

TO BOOT UNIT 1,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y30. 

TO BOOT UNIT 1,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y32. 

THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD, 

IF ROM #1 IS IN SLOT 1 THE Y COMPONENT IS 00 ADDR. 1730XX 

IF ROM #1 IS IN SLOT 2 THE Y COMPONENT IS 01 ADDR. 1732XX. 
% 



.TITLE M9312 DECNET BOOT - DUll 
; BASIC DEFINITIONS 

R0=%0 

R1=%1 

R2=%2 

R3=s%3 

R4=%4 

R5=%5 

R6 = %6 

R7=%7 

Spa%6 

PC=%7 

RESERVED«340 

DIAGM65564 

INITSW=173024 

CRCWD=0 

MRESERVED=173000 

SSYNS226 

DLE3220 

ASYN«337 

SOH=201 

ENQ=005 

POLY«120001 

.NLIST MCMD 

.LIST ME 



.ENABL ABS 
.=20000 
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1 

2 

3 
4 


020000 


125 


130 


5 


020002 


000576 




6 


020004 


000261 




7 


020006 


012700 


000000 


8 


020012 


012701 


160010 


9 


020016 


010704 




10 


020020 


103015 




11 


020022 


000416 




12 


020024 


173000 




13 


020026 


000340 




14 


020030 


000261 




15 


020032 


012700 


000001 


16 


020036 


000765 




17 








18 








19 








20 


020040 


005202 




21 


020042 


005303 




22 


020044 


100002 




23 


020046 


000000 




24 


020050 


000776 




25 


020052 


000002 




26 








27 








28 








29 


020054 


000137 


165564 


30 








31 








32 








33 








34 


020060 


012706 


017776 


35 


020064 


042700 


177760 


36 


020070 


010016 




37 


020072 


010702 




38 


020074 


062702 


000466 


39 


020100 


010704 




40 


020102 


062704 


177736 


41 








42 








43 








44 








45 


020106 


011246 




46 


020110 


166416 


000202 


47 


020114 


022726 


005412 


48 


020120 


001402 




49 


020122 


000000 




50 


020124 


000776 




51 


020126 


012703 


000006 


52 


020132 


005013 




53 


020134 


010443 





;*♦♦♦********************♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
;* CMND XW (DU11) 
;♦***♦*♦♦♦♦♦♦♦♦*******«******♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦♦♦♦♦♦♦♦ 



DUBGN: 



EMDU: 



•ASCII 

• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 

• WORD 

• WORD 
SEC 
MOV 
BR 



'UX' 
<ENDBOO-.+2> 

#0,R0 

#160010, Rl 

PCR4 

BOIAG 

SETSTK 

MRESERVED 

RESERVED 

#1,R0 
EMDU 



^IDENTIFIER # XU' FOR DUll BOOT 

J OFFSET TO NEXT BOOT 

• ENTRY FOR DUll, NO CPU DIAG RUN 

GENTRY FOR DUll, RUN CPU DIAG 

J PUT FLOATING BASE ADDR IN Rl 

•GET RETURN ADDR 

;GO TO DIAG IF ENABLED (C=0) 



; ENTRY FOR UNIT 1, NO CPU DIAG RUN 
f ENTRY FOR UNIT 1, RUN CPU DIAG 



;*♦*«*««**********«*«*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦#♦♦♦♦♦ 

J* FLOATING DEVICE INTERRUPT ROUTINE 
;****♦♦*********************»♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



NODEVs 



2$: 



1$ 



INC 

DEC 

BPL 

HALT 

BR 

RTI 



P2 
R3 
1$ 



2$ 



J UPDATE R2 TO POINT TO NEXT DEV MODULO 

;SUB ONE FROM R3 

;IF CANT FIND DEVICE, HALT 

; ###NOTE*** 

; REVIEW FLOATING ADDRESS ASSIGNMENTS 

? RETURN 

;*»*♦*««♦***♦♦«**********♦♦♦♦♦♦♦♦♦***♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
;# GO TO DIAG 

;♦♦♦♦***««♦♦«*********«**♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦« 
BDIAG: JMP e«DIAG ;GO TO DIAG 

; RETURN MADE THROUGH ADDR IN R4 

?♦♦*♦♦♦♦♦****♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 

?* FIND THE DEVICE IN FLOATING SPACE 

;**♦♦«*****♦♦♦♦♦♦♦♦♦♦****♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



SETSTK J MOV 
BIC 
MOV 

2$: MOV 
ADD 

3$: MOV 
ADD 



#17776, SP 

#177760, R0 

R0,(SP) 

PCR2 

#DEVTAB-2$-2,R2 

PCR4 

#NODEV-3$-2,R4 



5$: 
4$: 



MOV 


(R2),-(SP) 


SUB 


202(R4),(SP) 


CMP 


•5412, (SP)+ 


BEQ 


4$ 


HALT 




BR 


5$ 


MOV 


#6,R3 


CLP 


(R3) 


MOV 


R4,-(R3) 



SET UP STACK 

PREVENT TRYING TO BOOT UNIT # > 15 

SAVE UNIT NUM AT 17776 

SET UP R2 WITH 

POINTER TO DEVTAB 

SET UP R4 WITH 

POINTER TO TRAP ROUTINE 

♦♦♦NOTE*** 
THE NEXT FOUR INSTRUCTIONS VERIFY THAT 
THE EXTENSION ROMS ARE PROPERLY INSTALLED 
IF NOT, THE BOOT WILL HALT 
PUSH THE #7407 FROM ROM #3 ON THE STACK 
SUBTRACT FROM IT THE #1775 OFF ROM #2 
COMP IT WITH #5412 
IF NOT EQUAL, HALT 

***NOTE**« 
CHECK POS OF ROMS #2 AND #3 
TRAP PS ADDR 
CLR NEW PSW 
SET TRAP ROUTINE ADDR IN LOC 4 
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54 020136 

55 020140 

56 020142 

57 020144 

58 020146 

59 020150 

60 020152 

61 020154 
62 

63 
64 

65 020156 

66 020160 

67 020162 

68 020164 
69 

70 
71 

72 020166 

73 020172 

74 020174 

75 020176 

76 020200 

77 020202 

78 020206 
79 

80 
81 

82 020210 

83 020214 

84 020222 

85 020224 

86 020226 

87 020230 

88 020234 

89 020236 

90 020242 

91 020244 

92 020246 

93 020252 

94 020254 

95 020260 

96 020262 

97 020264 
98 

99 
100 

101 020266 

102 020272 

103 020274 

104 020276 

105 020302 

106 020306 



005303 
005711 
111204 
060401 
005201 
040401 
005703 
001371 



006300 
006300 
006300 
060001 



012706 
010704 
000402 
025174 
177776 
062704 
112403 



012711 
012761 
000402 
173000 
000340 
032711 
001775 
032711 
001775 
022121 
052721 
112411 
105761 
100375 
005303 
001372 



042741 
024141 
005004 
012703 
004767 
001327 



FLOAT? 



DEC 

TST 

MOVB 

ADD 

INC 

BIC 

TST 

BNE 



R3 

(Rl) 

(R2),R4 

R4,R1 

Rl 

R4,R1 

R3 

FLOAT 



?R3 CONTAINS DU11 POS IN FLOAT SPACE 

•TEST FOR DEVICE, MAYBE TRAP TO NODEV 

; MODULO INCREMENT 

? UPDATE ADDRESS 

?BY MODULO 

;IN TABLE 

;IS THIS A THE ONE? 

j NOT YET 



017440 



;* ADD UNIT DISPLACEMENT TO UNIT CSR ADDR 

ASL R0 JUNIT * TIMES 2 

ASL R0 JUNIT « TIMES 4 

ASL R0 ?UNIT « TIMES 8 

ADD R0,R1 JCSR ADDR ♦ UNIT#8 

;* SETUP TO SEND MESSAGE 



000344 



000006 

036226 000002 



001000 
020000 



MOV *17400+<8,#4>,SP 

MOV PC#R4 j SET UP 

BR 3$ 

•WORD 025174 ?CRC16 WORD FOR ROM II 

•WORD -2 J HEADER WORD FOR ROM #2 

ADD *DUREQ-SNDRQl-2rR4 ^POINTER TO DUREQ 

MOVB (R4)+,R3 ;MESSAGE LENGTH + PAD 

;* SEND A BLOCK ON THE LINK 



sndREq: 

SNDRQl; 



3$: 



?SET STACK ADDR-17400+8 TIMES LOOP DEC. 
R4 WITH 



000030 
177776 



2$: 

1$: 



send: 

STEST: 



MOV #6,(R1) j SET DTR AND RTS 

MOV »36000+SSYN,2(Rl) jSET FOR DU-11 

BR 2$ 

•WORD MRESERVED 

•WORD RESERVED 

BIT #1000, (Rl) 

BEQ 2$ 

BIT #20000, (Rl) 

BEQ 1$ 

CMP (R1)+,(R1)+ 

BIS #30,(R1)+ 

MOVB (R4)+,(R1) 

TSTB -2(R1) 

BPL STEST 

DEC R3 

BNE SEND 



(INT SYNCHRONOUS-8 BIT) 



j TEST FOR DSR 

J NOT YET 

;TEST FOR CTS 

j NOT YET 

?SET TO XMIT CSR 

;HDX AND SEND ON 

?MOVE TO DEVICE BUFFER 

•TEST FOR DONE 

jNOT YET 

^DECREMENT COUNT 

?MORE TO SEND 



000020 



000010 

000052 



iff****************************************************** 
;# RECEIVE A MESSAGE FROM THE LINK 

GETMSG: BIC #20, -(Rl) JDROP SEND 

CMP -(R1),-(R1) ;RESET TO RCV CSR AND CLR RCV BUFFER 

CLR R4 JBUFFER ADDR 

MOV #8 9 ,R3 JHEADER LENGTH 

JSR PCRECV1 J GET THE HEADER 

BNE SNDREQ ?NO GOOD CRC 
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107 

108 

109 

110 

HI 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 



020310 
020314 
020316 
020322 
020326 
020330 
020332 
020334 
020336 
020342 
020344 
020346 
020350 
020354 



020360 

020364 

020370 

020372 

020374 

020376 

020400 

020402 

020406 

020410 

020412 

020414 

020416 

020420 

020422 

020424 

020426 

020430 

020432 

020434 

020436 

020440 

020444 

020446 

020450 

020452 

020454 

020456 

020460 

020464 

020470 

020472 

020476 

020500 

020502 

020504 



122527 
001324 
113703 
042703 
000303 
152503 
122323 
005004 
004767 
001311 
005715 
001307 
013700 
000137 



042711 

012711 

005005 

000403 

000000 

056471 

177776 

012702 

005046 

105711 

100421 

005316 

001374 

005302 

000402 

173000 

000340 

001367 

105706 

003256 

005011 

012703 

005302 

001376 

005303 

001374 

000644 

005726 

042711 

116114 

112446 

012702 

000241 

006005 

006016 

102006 



000220 

000002 
177700 



000026 



017776 
000006 



000024 
000422 



000017 



000012 



000400 
000002 

000010 



CMPB (R5)+,#DLE 

BNE SNDREQ 

MOVB ?«2,R3 

BIC #177700, R3 

SWAB R3 

BISB (R5)+,R3 

CMPB (R3)t,(R3)+ 

CLR P4 

JSR PC#RECV 

BNE SNDREQ 

TST (R5) 

BNE SNDREQ 

MOV 3#17776,R0 

JMP 3#6 



j IS IT A OLE MESSAGECLOC 0) 

;NO 

?HIGH BYTE COUNT 

; CLEAR FLAGS AND OTHER BYTE 

J SWAP BYTES 

7 LOW BYTE COUNT (LOC 1) 

J ADD TWO FOR CRC 

•BUFFER ADDR 

SGET DATA FIELD 

J NO GOOD 

;CHECK FOR CODE 0, LOAD AT LOC 

;NO 

J SAVE UNIT NUM FOR SECONDARY BOOT 

J TRANSFER TO IT 



t* RECEIVE A BLOCK FROM THE LINK 



RECVlj 
RECV: 



RTEST: 
2$: 



3$: 



HNGLOP: 

4$: 



RDONE: 



1$: 
crclop: 



BIC 
MOV 
CLR 
BR 

• WORD 

• WORD 

• WORD 
MOV 
CLR 
TSTB 
BMI 
DEC 
BNE 
DEC 
BR 

• WORD 

• WORD 
BNE 
TSTB 
BGT 
CLR 
MOV 
DEC 
BNE 
DEC 
BNE 
BR 
TST 
BIC 
MOVB 
MOVB 
MOV 
CLC 
ROR 
ROR 
BVC 



#24, (Rl) 

#422, (Rl) 

R5 

RTEST 



056471 

-2 

#15«,R2 

-(SP) 

(Rl) 

RDONE 

(SP) 

2$ 

R2 

3$ 

MRESERVED 

RESERVED 

2$ 

SP 

SNDRQ1 

(Rl) 

#10.,R3 

R2 

4$ 

R3 

4$ 

SNDREQ 

iSP) + 

#400, (Rl) 

2(R1),(R4) 

(R4)+,-(SP) 

#8.,R2 

R5 

(SP) 

1$ 



; CLEAR RTS AND SEARCH SYNC 
?SET SEARCH, STRIP, DTR 
; INITIALIZE CRC 

;FILLER 

;CRC16 WORD FOR ROM #2 

7 HEADER WORD FOR ROM #3 

J LONG LOOP VALUE 

t SHORT LOOP 

•TEST FOR DEVICE DONE 

?ALL DONE 

? DECREMENT SHORT LOOP 

JAGAIN 

; DECREMENT LONG LOOP 



;KEEP GOING 

CHECK STACK AT OR BELOW 17400 
LOOP ONCE MOR(8 TIMES TOTAL) 
DROP DTR-HANG UP 
LONG LOOP COUNTER 
DECREMENT SHORT LOOP 
AGAIN 

DECREMENT LONG LOOP 
AGAIN 

HUNG UP LONG ENOUGH-ANSWER AGAIN 
CLEAN UP STACK-LOOP CTR 
NO STRIP SYNC 
STORE IT 
BYTE TO ADD 
NUMBER BITS PER BYTE 
CLEAR CARRY 

LOW BIT PARTIAL TO CARRY 
CARRY TO BYTE AND BYTE TO CARRY 
XOR OF PARTIAL AND BYTE(LOW BITS) 
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160 020506 


012746 


120001 




161 020512 


040516 






162 020514 


042705 


120001 




163 020520 


052605 






164 020522 


005302 






165 020524 


003364 






166 020526 


005726 






167 020530 


005303 






168 020532 


003323 






169 020534 


005705 






170 020536 


000207 






171 








172 








173 








174 020540 


024 


226 


226 


020543 


226 


220 


004 


020546 


300 


000 


000 


020551 


001 


021 


120 


175 








176 020554 


010 


002 


001 


020557 


000 


242 


060 


177 








178 








179 








180 








181 020562 


007 






182 020563 


017 






183 020564 


007 






184 020565 


007 






185 








186 








187 020576 


075042 






188 








189 








190 








191 


020600 






192 020600 


012702 


020000 




193 020604 


012703 


030000 




194 020610 


012223 






195 020612 


020227 


020576 




196 020616 


001401 






197 020620 


000773 






198 020622 


000000 






199 


000001 







,-XOR POLY TO PARTIALC4 INSTRUCTIONS) 
;NOT PARTIAL AND POLY 
J NOT POLY AND PARTIAL 
;POLY XOR PARTIAL 
1$: DEC R2 j DECREMENT BIT COUNT 

;ONCE MORE 

;CLEAN UP STACK-BYTE TO ADD 
^DECREMENT BYTE COUNT 
fONCE MORE 
J SET CC 
; RETURN 

;# DECNET BOOT REQUEST 

iff****************************************************** 
DUREO: .BYTE 20. , SSYN,SSYN, SSYN,DLE, 4, 300,0,0, 1,021 , 120 



MOV 


#POLY,-CSP 


BIC 


R5,(SP) 


BIC 


#POLY,R5 


BIS 


(SP)+,R5 


DEC 


R2 


BGT 


CRCLOP 


TST 


(SP) + 


DEC 


R3 


BGT 


RTEST 


TST 


R5 


RTS 


PC 



•BYTE 10,2,1,0,242,60 



1 DUREO REQUEST MESSAGE 



;* FLOATING DEVICE MODULO 

DEVTABI .BYTE 7 iDJll DEVICE MODULUS 

.BYTE 17 JDH11 

.BYTE 7 JDQ11 

.BYTE 7 JDU11 

; ♦*#NOTE»*» 
;THE NEXT 4 WORDS ARE ZERO FILLED 
ENDBOO: .WORD 075042 JCRC16 WORD FOR ROM #3 

;# RELOCATION ROUTINE 

.=20600 



2$: 



1$: 



MOV 


#20000, R2 


MOV 


#30000, R3 


MOV 


(R2)+,(R3)+ 


CMP 


R2, #20576 


BEQ 


1$ 


BR 


2$ 


HALT 




.END 
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SYMBOL TABLE 



ASYN s 


000337 


DUBGN 


020000 


HNGLOP 


020440 


RECV1 020360 


BDIAG 


020054 


DUREQ 


020540 


INITSWB 


173024 


RESERVa 000340 


CRCLOP 


020476 


EMDU 


020012 


MRESERs 


173000 


RTEST 020402 


CRCWD « 


000000 


ENDBOO 


020576 


NODEV 


020040 


R6 «%000006 


DEVTAB 


020562 


ENO s 


000005 


POLY « 


120001 


R7 =%000007 


DIAG s 


165564 


FLOAT 


020140 


RDONE 


020456 


SEND 020252 


OLE ■ 


000220 


GETMSG 


020266 


RECV 


020370 





SETSTK 020060 
SNDREQ 020166 
SNDRQ1 020172 
SOH » 000201 
SSYN > 000226 
STEST 020254 



M9312 ROM LISTING BOOTSTRAP (K-SP-M9312-0-7) 



Page 43 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



.REM 



% 



product code: 
product name: 
product date: 
maintainer: 



IDENTIFICATION 

xxxxxxx-xx-xxxxx-x-x 

M9312 DECNET BOOT - DUP11 

APRIL 1978 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT 
NITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 



TO CHANGE 

COMMITMENT 

EQUIPMENT 



THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION 
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1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




1 




2 




3 




4 


000000 


5 


000001 


6 


000002 


7 


000003 


8 


000004 


9 


000005 


10 


000006 


11 


000007 


12 


000006 


13 


000007 


14 


000340 


15 


165564 


16 


173024 


17 


000000 


18 


173000 


19 


000226 


20 


000220 


21 


000337 


22 


000201 


23 


000005 


24 


120001 


25 




26 




27 




37 




38 




44 000000 




45 


020000 



REM % 

THIS ROM WILL BOOT THE DUP OPTION. 
TO BOOT UNIT 0,AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y04. 
TO BOOT UNIT 0,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y06, 
TO BOOT UNIT 1#AND NOT RUN DIAGNOSTICS, THE START ADDR IS 173Y30. 
TO BOOT UNIT 1,AND RUN CPU DIAGNOSTICS, THE START ADDR IS 173Y32. 
THE Y COMPONENT OF THE ADDRESS REPRESENTS BITS 7 AND 8 OF THE WHOLE WORD, 
IF ROM #1 IS IN SLOT 1 THE Y COMPONENT IS 00 ADDR, 1730XX 
IF ROM #1 IS IN SLOT 2 THE Y COMPONENT IS 01 ADDR, 1732XX. 
% 



.TITLE M9312 DECNET BOOT - DUPH 
; BASIC DEFINITIONS 

R0«%0 

R1*%1 

R2»%2 

R3»%3 

P4=%4 

R5»%5 

R6=%6 

R7*%7 

SP«%6 

PC*%7 

RESERVED*340 

DIAGsl65564 

INITSW»173024 

CRCWDs0 

MRESERVEDxl73000 

SSYNS226 

DLEs220 

ASYNS337 

SOHs20l 

ENO=005 

POLYS120001 

•NLIST MC,MD 

.LIST ME 



.ENABL ABS 
.=20000 
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2 
3 
4 


020000 


127 


130 


5 


020002 


000576 




6 


020004 


000261 




7 


020006 


012700 


000000 


8 


020012 


012701 


160010 


9 


020016 


010704 




10 


020020 


103015 




11 


020022 


000416 




12 


020024 


173000 




13 


020026 


000340 




14 


020030 


000261 




15 


020032 


012700 


000001 


16 


020036 


000765 




17 








18 








19 








20 


020040 


005202 




21 


020042 


005303 




22 


020044 


100002 




23 


020046 


000000 




24 


020050 


000776 




25 


020052 


000002 




26 








27 








28 








29 


020054 


000137 


165564 


30 








31 








32 








33 








34 


020060 


012706 


017776 


35 


020064 


042700 


177760 


36 


020070 


010016 




37 


020072 


010702 




38 


020074 


062702 


000474 


39 


020100 


010704 




40 


020102 


062704 


177736 


41 








42 








43 








44 








45 


020106 


011246 




46 


020110 


166416 


000202 


47 


020114 


022726 


005412 


48 


020120 


001402 




49 


020122 


000000 




50 


020124 


000776 




51 


020126 


012703 


000006 


52 


020132 


005013 




53 


020134 


010443 





;* CMND XW (DUP11) 
;«**«»*««##»*#*#**#*#«•###«*#*##***#*»#***#*«*♦##*#**##« 

dupbgn: .ASCII 'WX* 

<ENDBOO-.+2> 



EMDUP: 



• WORD 
SEC 
MOV 
MOV 
MOV 
BCC 
BR 
.WORD 

• WORD 
SEC 
MOV 
BR 



#0,R0 

#160010, Rl 

PC,R4 

BDIAG 

SETSTK 

MRESERVED 

RESERVED 

#1,R0 
EMDUP 



^IDENTIFIER 'XW' FOR DUPU BOOT 

; OFFSET TO NEXT BOOT 

;ENTRY FOR DUPU, NO CPU DIAG RUN 

•ENTRY FOR DUP11, RUN CPU DIAG 

SPUT FLOATING BASE ADDR IN Rl 

j GET RETURN ADDR 

jGO TO DIAG IF ENABLED (Cs0) 



• ENTRY FOR UNIT 1, NO CPU DIAG RUN 
? ENTRY FOR UNIT 1, RUN CPU DIAG 



?♦ FLOATING DEVICE INTERRUPT ROUTINE 



NODEVs 



2$: 

1$: 



INC 

DEC 

BPL 

HALT 

BR 

RTI 



R2 
R3 
1$ 

2$ 



; UPDATE R2 TO POINT TO NEXT DEV MODULO 

? SUB ONE FROM R3 

;IF CANT FIND DEVICE, HALT 

j *#*NOTE**« 

J REVIEW FLOATING ADDRESS ASSIGNMENTS 

; RETURN 

;###♦#♦##♦♦#########**♦##**###**#♦#######*#»♦##♦#*###♦## 
;# GO TO DIAG 

BDIAG: JMP MDIAG ;GO TO DIAG 

} RETURN MADE THROUGH ADDR IN R4 

•####*###♦*#♦###*♦##*#*♦#♦#♦#♦##♦#####♦♦###*##*##♦*#»*#* 
;* FIND THE DEVICE IN FLOATING SPACE 



SETSTK : MOV 
BIC 
MOV 

2$: MOV 
ADD 

3$: MOV 
ADD 



#17776, SP 

#177760, R0 

R0,(SP) 

PCR2 

#DEVTAB-2$-2,R2 

PCrR4 

#NODEV-3$-2,R4 



5$: 
4$: 



MOV 


(R2),-(SP) 


SUB 


202CR4),(SP) 


CMP 


#5412, (SP)f 


BEO 


4$ 


HALT 




BP 


5$ 


MOV 


#6,R3 


CLR 


(R3) 


MOV 


R4,-(R3) 



•SET UP STACK 

^PREVENT TRYING TO BOOT UNIT # > 15 

;SAVE UNIT NUM AT 17776 

jSET UP R2 WITH 

^POINTER TO DEVTAB 

fSET UP R4 WITH 

^POINTER TO TRAP ROUTINE 

; ##«NOTE»*# 

jTHE NEXT FOUR INSTRUCTIONS VERIFY THAT 

;THE EXTENSION ROMS ARE PROPERLY INSTALLED. 

;IF NOT, THE BOOT WILL HALT 

;PUSH THE #7407 FROM ROM #3 ON THE STACK 

^SUBTRACT FROM IT THE #1775 OFF ROM #2 

COMP IT WITH #5412 

IF NOT EQUAL, HALT 
***NOTE*** 

CHECK POS OF ROMS #2 AND #3 

TRAP PS ADDR 

CLR NEW PSW 

SET TRAP ROUTINE ADDR IN LOC 4 
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54 

55 020136 

56 020140 

57 020142 

58 020144 

59 020146 

60 020150 

61 020152 
62 

63 
64 

65 020154 

66 020156 

67 020160 

68 020162 
69 

70 
71 

72 020164 

73 020170 

74 020172 

75 020174 

76 020176 

77 020200 

78 020202 

79 020206 
80 

81 
82 

83 020210 

84 020214 

85 020222 

86 020224 

87 020226 

88 020230 

89 020234 

90 020236 

91 020242 

92 020244 

93 020246 

94 020252 

95 020256 

96 020260 

97 020262 

98 020266 

99 020270 
100 020272 
101 

102 
103 

104 020274 

105 020300 

106 020302 



005711 
111204 
060401 
005201 
040401 
005703 
001371 



006300 
006300 
006300 
060001 



012706 
010704 
000403 
000000 
024572 
177776 
062704 
112403 



012711 
012761 
000402 
173000 
000340 
032711 
001775 
032711 
001775 
022121 
052721 
012711 
000401 
112411 
105761 
100375 
005303 
001372 



042741 
024141 
005004 



FLOAT: 



017440 



000354 



000006 
101226 



001000 
020000 



000030 
000626 



177776 



000020 



TST 

MOVB 

ADD 

INC 

BIC 

TST 

BNE 



(Rl) 

(R2),R4 

R4,R1 

Rl 

R4,R1 

R3 

FLOAT 



;R3 CONTAINS DUP11 POS IN FLOAT SPACE 

J TEST FOR DEVICE, MAYBE TRAP TO NODEV 

j MODULO INCREMENT 

j UPDATE ADDRESS 

;BY MODULO 

flN TABLE 

J IS THIS A THE ONE? 

J NOT YET 



;# ADD UNIT DISPLACEMENT TO UNIT CSR ADDR 

ASL R0 ;UNIT # TIMES 2 

ASL R0 ;UNIT # TIMES 4 

ASL R0 ?UNIT « TIMES 8 

ADD R0#R1 JCSR ADDR ♦ UNIT#8 

?« SETUP TO SEND MESSAGE 



sndReq: 

SNDRQlt 



3$: 



MOV 
MOV 
BR 

• WORD 

• WORD 

• WORD 
ADD 
MOVB 



«17400+<8 9 «4>,SP 



J SET UP 



? SET STACK 
R4 WITH 



ADDR-17400+8 TIMES LOOP DEC 



PCR4 
3$ 

;FILLER 

024572 ;CRC16 WORD FOR ROM «1 

-2 J HEADER WORD FOR ROM #2 

#DUPREQ-SNDRQ1-2,R4 ^POINTER TO DUPREQ 
CR4)+,R3 ^MESSAGE LENGTH + PAD 

;#*♦♦####*♦♦#*#»###♦##*###♦♦#♦##♦#♦♦##*##♦#♦#*#*♦#♦**♦*♦ 

J# SEND A BLOCK ON THE LINK 



MOV #6,(R1) ?SET 

000002 MOV #101000+SSYN,2(R1) 

BR 2$ 

•WORD MRESERVED 

•WORD RESERVED 

2$: BIT #1000, (Rl) 

BEQ 2$ 

1$: BIT #20000, (Rl) 

BEQ 1$ 

CMP (R1)+,(R1)+ 

BIS #30,CR1)+ 

MOV #400+SSYN,(Rl) 

BR STEST 

SEND; MOVB (R4)+,(R1) 

STEST: TSTB -2CR1) 

BPL STEST 

DEC R3 

BNE 



DTR AND 
J SET 



RTS 
FOR 



DUP-11 (DEC MODE-CRC INH) 



DSR 



•TEST FOR 

J NOT YET 

jTEST FOR CTS 

} NOT YET 

;SET TO XMIT CSR 

jHDX AND SEND ON 

;START IT UP WITH TSOM 

-TEST FOR DONE 

•MOVE TO DEVICE BUFFER 

1 TEST FOR DONE 

•NOT YET 

^DECREMENT COUNT 

;MORE TO SEND 



SEND 
;##*####♦#*#*#*♦*»#*##*#**#♦##*♦#**♦*##»•♦##♦*****•*#*♦* 
?# RECEIVE A MESSAGE FROM THE LINK 

;##########♦♦#♦♦########*♦*♦##***##♦•#♦******♦*♦*♦****♦* 
GETMSG8 BIC #20, -(Rl) JDROP SEND 

CMP -(R1),-(R1) ?RESET TO RCV CSR AND CLR RCV BUFFER 

CLR R4 ?BUFFER ADDR 
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107 


020304 


012703 


000010 


108 


020310 


004767 


000052 


109 


020314 


001323 




110 


020316 


122527 


000220 


HI 


020322 


001320 




112 


020324 


113703 


000002 


113 


020330 


042703 


177700 


114 


020334 


000303 




115 


020336 


152503 




116 


020340 


122323 




117 


020342 


005004 




118 


020344 


004767 


000036 


119 


020350 


001305 




120 


020352 


005715 




121 


020354 


001303 




122 


020356 


013700 


017776 


123 


020362 


000137 


000006 


124 








125 








126 








127 


020366 


042711 


000024 


128 


020372 


000403 




129 


020374 


000000 




130 


020376 


024437 




131 


020400 


177776 




132 


020402 


012711 


000422 


133 


020406 


005005 




134 


020410 


012702 


000017 


135 


020414 


005046 




136 


020416 


105711 




137 


020420 


100421 




138 


020422 


000402 




139 


020424 


173000 




140 


020426 


000340 




141 


020430 


005316 




142 


020432 


001371 




143 


020434 


005302 




144 


020436 


001367 




145 


020440 


105706 




146 


020442 


003252 




147 


020444 


005011 




148 


020446 


012703 


000012 


149 


020452 


005302 




150 


020454 


001376 




151 


020456 


005303 




152 


020460 


001374 




153 


020462 


000640 




154 


020464 


005726 




155 


020466 


042711 


000400 


156 


020472 


116114 


000002 


157 


020476 


112446 




158 


020500 


012702 


000010 


159 


020504 


000241 





MOV #8.,R3 

JSR PCrRECVl 

BNE SNDREO 

CMPB (R5)+ f |DLE 

BNE SNDREO 

MOVB e#2#R3 

BIC #177700, R3 

SWAB R3 

BISB (R5)+,R3 

CMPB (R3)+,(R3)+ 

CLR R4 

JSR PCRECV 

BNE SNDREQ 

TST (R5) 

BNE SNDREQ 

MOV G#17776,R0 

JMP e«6 



0) 



J HEADER LENGTH 

;GET THE HEADER 

? NO GOOD CRC 

1 1S IT A DLE MESSAGECLOC 

J NO 

jHIGH BYTE COUNT 

;CLEAR FLAGS AND OTHER BYTE 

JSWAP BYTES 

?LOW BYTE COUNT CLOC 1) 

;ADD TWO FOR CRC 

jBUFFER ADDR 

jGET DATA FIELD 

J NO GOOD 

?CHECK FOR CODE 0, LOAD AT LOC 

;NO 

;SAVE UNIT NUM FOR SECONDARY BOOT 

; TRANSFER TO IT 



;* RECEIVE A BLOCK FROM THE LINK 



RECV1: 



1$: 

RECV: 

RTEST: 

2$: 



1$: 



hnglop: 
4$: 



rdone: 



1$: 
crclop: 



BIC 
BR 

• WORD 

• WORD 

• WORD 
MOV 
CLR 
MOV 
CLR 
TSTB 
BMI 
BR 

• WORD 

• WORD 
DEC 
BNE 
DEC 
BNE 
TSTB 
BGT 
CLR 
MOV 
DEC 
BNE 
DEC 
BNE 
BR 
TST 
BIC 
MOVB 
MOVB 
MOV 
CLC 



#24, (Rl) 

1$ 



024437 

-2 

#422, (Rl) 

R5 

#15,, R2 

-(SP) 

(Rl) 

RDONE 

1$ 

MRESERVED 

RESERVED 

(SP) 

2$ 

R2 

2$ 

SP 

SNDRQ1 

(Rl) 

#10,, R3 

R2 

4$ 

R3 

4$ 

SNDREQ 

(SP)* 

#400, (Rl) 

2(R1),(R4) 

(R4)*,-(SP) 

#8.,R2 



fCLEAR RTS AND SEARCH SYNC 

;FILLER 

;CRC16 WORD FOR ROM #2 

J HEADER WORD FOR ROM #3 

;SET SEARCH, STRIP, DTR 

^INITIALIZE CRC 

JLONG LOOP VALUE 

; SHORT LOOP 

•TEST FOR DEVICE DONE 

;ALL DONE 



? DECREMENT SHORT LOOP 

JAGAIN 

^DECREMENT LONG LOOP 

JKEEP GOING 

;CHECK STACK AT OR BELOW 17400 

SLOOP ONCE MOR(8 TIMES TOTAL) 

JDROP DTR-HANG UP 

SLONG LOOP COUNTER 

^DECREMENT SHORT LOOP 

jAGAIN 

^DECREMENT LONG LOOP 

jAGAIN 

jHUNG UP LONG ENOUGH-ANSWER AGAIN 

jCLEAN UP STACK-LOOP CTR 

jNO STRIP SYNC 

JSTORE IT 

JBYTE TO ADD 

jNUMBER BITS PER BYTE 

JCLEAR CARRY 
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160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 



178 
179 

180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 



020506 
020510 
020512 
020514 
020520 
020522 
020526 
020530 
020532 
020534 
020536 
020540 
020542 
020544 



020546 
020551 
020554 
020557 

020562 
020565 



020570 
020571 
020572 
020573 
020574 
020575 



020600 
020604 
020610 
020612 
020616 
020620 
020622 



006005 
006016 
102006 
012746 
040516 
042705 
052605 
005302 
003364 
005726 
005303 
003323 
005705 
000207 



024 
226 

300 
001 



010 
000 



007 
017 
007 
007 
007 
000 



020576 036074 



020600 
012702 
012703 
012223 
020227 
001401 
000773 
000000 
000001 



120001 
120001 



226 

220 
000 
021 

012 
043 



226 

004 
000 
120 

001 
362 



020000 
030000 

020576 



ROR R5 

ROR (SP) 

BVC 1$ 

MOV #POLY,-CSP) 

BIC R5,(SP) 

BIC #POLY,R5 

BIS (SP)+,R5 

1$: DEC R2 

BGT CRCLOP 

TST CSP) + 

DEC R3 

BGT RTEST 

TST R5 

RTS PC 



LOW BIT PARTIAL TO CARRY 

CARRY TO BYTE AND BYTE TO CARRY 

XOR OF PARTIAL AND BYTECLOW BITS) 

XOR POLY TO PARTIALC4 INSTRUCTIONS) 

NOT PARTIAL AND POLY 

NOT POLY AND PARTIAL 

POLY XOR PARTIAL 

DECREMENT BIT COUNT 

ONCE MORE 

CLEAN UP STACK-BYTE TO ADD 

DECREMENT BYTE COUNT 

ONCE MORE 

SET CC 

RETURN 



;♦ DECNET BOOT REQUEST 

DUPREQI .BYTE 20.,SSYN,5SYN,SSYN,DLE,4,300,0,0,1,021,120 



•BYTE 10,10., 1,0,43, 362 JDUPREO REQUEST MESSAGE 

•#»##♦#«*#######*»»*##♦###♦*##♦♦*###♦###♦**♦*****♦**♦*** 
;* FLOATING DEVICE MODULO 

;##*♦*#*«**♦«♦♦#*##♦###♦##♦♦##♦*»***♦*****♦************* 
DEVTABI .BYTE 7 *DJU DEVICE MODULUS 

.BYTE 17 ;DH11 

.BYTE 7 ;DQ11 

.BYTE 7 JDU11 

.BYTE 7 JDUP11 

•BYTE jFILLER 

ENDBOO: .WORD 036074 JCRC16 WORD FOR ROM #3 

;##♦#*#######♦♦##♦##♦#♦###**#♦**#*•»************•*♦****♦ 
;# RELOCATION ROUTINE 
******************************************************** 

•*20600 



2$: 



1$: 



MOV 


#20000, R2 


MOV 


#30000, R3 


MOV 


CR2H,(R3) + 


CMP 


R2, #20576 


BEQ 


1$ 


BR 


2$ 


HALT 




• END 
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SYMBOL TABLE 



ASYN s 


000337 


DUPBGN 


020000 


HNGLOP 


020446 


RECV1 020366 


BDIAG 


020054 


DUPREQ 


020546 


INITSW* 


173024 


RESERVs 000340 


CRCLOP 


020504 


EMOUP 


020012 


MRESERs 


173000 


RTEST 020410 


CRCWD * 


000000 


ENDBOO 


020576 


NODEV 


020040 


R6 «%000006 


DEVTAB 


020570 


ENQ * 


000005 


POLY a 


120001 


R7 s%000007 


DIAG * 


165564 


FLOAT 


020136 


RDONE 


020464 


SEND 020260 


DLE s 


000220 


GETMSG 


020274 


RECV 


020406 





SETSTK 020060 
SNDREO 020164 
SNDROl 020170 
SOH * 000201 
SSYN * 000226 
STEST 020262 



